foreach (<$ah>) for my $value (@text[11, 12, 14, 15, 19]) { my $nullval = ' '; my @text = split(/\t/); if ($bHash{ $text[3] } eq $value) { $bHash{ $text[0] } = $value; last; print OUT2 join( "\t", @text[1,2,3,4,11,5,6,8,7,11,12]),"\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t$nullval\t1\t1\n"; }