my @files_info;
foreach (@files) {
   push @files_info, [ $_, stat($_)->mtime() ];
}

@files_info =
   sort {
      $a->[1] <=> $b->[1]
         ||
      $a->[0] cmp $b->[0]
   }
   @files_info;

foreach (@files_info) {
   print(ctime($_->[0]) . " - From: $_->[1]\n");
}
[download]