my @fred = qw (The quick brown fox); sub mysub ($@) { print "@_\n"; } mysub(@fred) #### 4