Shell Programming and Scripting

my @temp_array;
my @s;
my @sortedlist = map {  
                    @temp_array = split /\t/; 
                    $_ = $temp_array[1];}
                 sort 
                 map { @s = stat; $_ = "$s[9]\t$_"; }
                 @filelist;

print "@sortedlist\n";

#open the directory
unless (opendir DH, $mydir) {print "Can't open directory $mydir: $!\n";  
return undef;}

#sort them by creation date, oldest file first
my @filelist = sort { -M "$mydir/$b" <=>  -M "$mydir/$a" } grep { -f "$mydir/$_" } readdir DH;
closedir DH;