my @a = ( 'a', 'b', 'c');

my $x = shift @a;