use strict;  
use warnings; 

sub mysuba {
    my @fred = qw(The quick brown fox);
    return @fred
}

sub mysubb {
    return qw(The quick brown fox)
}

my $resa = mysuba();
print "$resa\n";

my $resb = mysubb();
print "$resb\n";

##</code><code>##

4
fox