$ perl -le'
sub test {
    my @array = "a" .. "z";   # 26 elements
    return @array;
    }
my $stuff = test();
print $stuff;
'
26