use strict;
use warnings;

$, = "\t";

my @foo = qw/this that/;

print @{ foo }, "\n";

my @shift = qw/those these/;

print @{ shift }, "\n";

mysub( [qw/them theirs/] );

sub mysub {
    print @{ shift }, "\n";
    print @{ shift() }, "\n";
}