use strict;

my @files = <C:/WINDOWS/system32/*.ocx>;
for my $key ( map  $_->[0],
              sort { $a->[1] <=> $b->[1] }
              map  [$_, -M], @files )
{
  print "$key\n";
}