Select Code to Download

use strict;
use warnings;
...
              "   \t $info{$_}{NAME}\n";
    }
}

1.file.ext      10        Square
2.file.ext      12        Triangle
...
14.file.ext      17        Rectangle
15.file.ext      17        Rectangle
16.file.et      12        Square