use strict;

my @a=qw/abc def ghi/;

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

qwe(\@a);

print @a;

##</code><code>##

use strict;

my @a=qw/abc def ghi/;

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

q(\@a);

print @a;