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