$result = grep { $_ == 1 } ...a list...

##</code><code>##

   ..new list.. = map  { $time - $_ >= $amount } ..a list..

##</code><code>##

my @t =
#$result =
#       grep { $_ == 1 }
#       map  { $time - $_ >= $amount }
#       map  { ( $_->stat )[9] }  # e.g i'm interested in this...
#       grep { $_->name =~ /.+\.$suffix$/ } # ...and this
       io($dir)->all;
die "<", join(", ", @t), ">\n";

##</code><code>##

my @t =
#$result =
#       grep { $_ == 1 }
#       map  { $time - $_ >= $amount }
#       map  { ( $_->stat )[9] }  # e.g i'm interested in this...
       grep { $_->name =~ /.+\.$suffix$/ } # ...and this
       io($dir)->all;
die "<", join(", ", @t), ">\n";