#!/usr/bin/perl

use strict;
use warnings;

my @arry = ();
my ($one, $two, $three);
$one = 1;
$two = 2;
$three = 3;

@arry = ( $one, $two, $three );
print "two is $two \n";
$arry[1]++;
print "two is $two \n"; #I'm expecting this to be 3, but it's 2
print join("\n", @arry), "\n";
#Output:
>two is 2 
>two is 2 
>1
>3 #arry[1] = 3.  Why doesn't print "$two" = 3?
>3