my($first) = (sort @files)[0];
my($last) = (sort @files)[-1];

##</code><code>##

my $file = "/some/file/name.txt";
my $filename;
if ($file =~ m!(?:.*/)?([^/])$!) {
    $filename = $1;
} else {
    die "Weird file name format: '$filename'";
};
print "Got $filename";