Select Code to Download

    for ( @array )
    {
...
            push @found, $_ . $hash{$_};
        }
    }

    push @found, 
        map { $_ . $hash{$_} }
        grep { exists $hash{$_} }
        @array;

  push @found, map { exists $hash{$_} ? $_ . $hash{$_} : () } @array;