#!/usr/bin/perl -w use strict; our $scalar1="one"; *scalar2=\$scalar1; our $scalar2="two"; print $scalar1;