Help for this page
$ perl -MList::Util=reduce -Mstrict -Mwarnings -E ' my $newest = ... say qq{Newest file - $newest->[ 0 ]};' Newest file - spw1029421 $