#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $dir = '.';

opendir DIR, $dir or die $!;
my @files = readdir DIR;
print Dumper(\@files);

@files = grep{ -f $_ }@files;
print Dumper(\@files);

@files = map{ [$_, -M $_] }@files;
print Dumper(\@files);

@files = sort{ $a->[1] <=> $b->[1] }@files;
print Dumper(\@files);

@files = map{ $_->[0] }@files;
print Dumper(\@files);

my $latest = $files[0];
print $latest;

closedir DIR;