#!/usr/bin/perl

use strict;
use feature 'say';

sub foo {
    my @a = 'aaaaa' .. 'zzzzz';
    say time;
    return [ @a ];
}

say time;
my $a = foo();
say time;

##</code><code>##

1370302025
1370302028
1370302032

##</code><code>##

#!/usr/bin/perl

use strict;
use feature 'say';

sub foo {
    my @a = 'aaaaa' .. 'zzzzz';
    say time;
    return \@a;
}

say time;
my $a = foo();
say time;

##</code><code>##

1370302601
1370302604
1370302604