use strict;

my @a=qw/abc def ghi/;

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

qwe(\@a);

print @a;