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

##</code><code>##

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