... foreach my $line ( keys %line ) { # print "$line\n"; delete $line{$line}; foreach my $tojoin ( @tojoin ) { my $nstr = $line.$tojoin; $line{$nstr} = 1; } # last if ($line eq 'AYW'); } ...