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