#!/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;