my $foo = (stat($file))[3];

##</code><code>##

my $lf = (sort(<*>))[-1];