use strict;

my @a=qw/abc def ghi/;

sub q(*@) {
 my $w=shift;
 shift @$w;
}

q(\@a);

print @a;