Language Basics Perl

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