Select Code to Download

push( @{$modtimes{substr($filename,0,2)}, $modtime );

foreach $type ( sort keys %modtimes ) {
   @times = @{$modtimes{$type}};
   # do something with this set of @times...
}