Help for this page

Select Code to Download

Select or download this

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

my $x = shift @a;