use strict;

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