sub get_size { my @a = big_list(); return scalar @a } my $size = get_size();