my @fred = qw (The quick brown fox);

sub mysub ($@) {
    print "@_\n";
}

mysub(@fred)