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