Select Code to Download

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

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

my @t =
#$result =
...
#       grep { $_->name =~ /.+\.$suffix$/ } # ...and this
       io($dir)->all;
die "<", join(", ", @t), ">\n";

my @t =
#$result =
...
       grep { $_->name =~ /.+\.$suffix$/ } # ...and this
       io($dir)->all;
die "<", join(", ", @t), ">\n";