Select Code to Download

my @array = qw/one two three/;
my $x = shift @array;

my @array = qw/one two three/;
my $x = $array[0];