use warnings;
use strict;

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

}

sub mysub2 {
    return qw(The quick brown fox);

}

my $x = mysub1();
print "x: $x\n";

my $y = mysub2();
print "y: $y\n";