Select Code to Download

sub ret_arr   { return( ["foo"],["bar"],["baz"] ) }
sub print_arr { print @$_ for @_ }
...
__output__

foobarbaz

use IO::Dir;
sub files_by_mtime {
...
         map  { [ $_, (stat "$_[0]/$_")[9] ] }
         grep { /^post.*\../ } $d->read;
}