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