#!/usr/bin/perl
use strict;
use warnings;

my %file;
while ( <DATA> ) {
    chomp;
    my @info = split " ";
    $file{ $info[3] } = $_;
}
print "$file{$_}\n" for sort keys %file;
__DATA__
1999-12-07 12:00p 3,856 abc.dll
2002-02-24 09:30p 260,096 xyz.dll
2004-03-19 01:29p 992,907 lmo.dll
2004-04-08 03:23p 24,576 efg.dll
2004-03-11 08:04a 1,036,288 stu.dll

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

for ( sort glob "*.dll" ) {
    print "$_ : ", -s, "\n";
}