sub foo (\@) {
    print pop @{$_[0]};
};
@bar = qw( foo bar );

foo @bar;