foreach $one (@arrayA) { chomp $one; $found = 0; foreach $two (@arrayB) { chomp $two; if ($one eq $two) { print "$hashB{$two}"; $found = 1; last; } } if ($found == 0) { print "$hashA{$one}"; } }