Select Code to Download

foreach my $dir ( sort keys %Found ) {
   foreach my $item ( sort @{ $Found{$dir} } ) {
     push(@Final, $item);
   }
}

foreach my $dir ( sort keys %Found ) {
   push(@Final, sort @{ $Found{$dir} });
}