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