while() { chomp; my @fields = split(/:/, $_); my $result = qx{ /opt/bin/target -e$fields[2] }; print FILE2 "$fields[0]:$fields[1]:$result:NONBKID\n"; foreach my $configParameter (keys %{$configHash}) { my $nbkid = $configHash->{$configParameter}{'nbkid'}; my $ntid = $configHash->{$configParameter}{'ntid'}; if ($ntid eq $fields[1]) { print FILE2 "$fields[0]:$fields[1]:$result:$nbkid\n"; } } } #### ANY:spicejam:07F7817D470004327B471FC5327B050F:nbkufdc ANY:spicejam:07F7817D470004327B471FC5327B050F:NONBKID ANY:henders:07F7817D470004327B:nbhoijk ANY:henders:07F7817D470004327B:NONBKID ANY:riffty:07F7817D470:nbaz94k ANY:riffty:07F7817D470:NONBKID ANY:johbe:07F7817D470004327B471FC5327B050FE04379:n3456hk ANY:johbe:07F7817D470004327B471FC5327B050FE04379:NONBKID .... etc #### ANY:spicejam:07F7817D470004327B471FC5327B050F:NONBKID ANY:henders:07F7817D470004327B:nbhoijk ANY:riffty:07F7817D470:nbaz94k ANY:johbe:07F7817D470004327B471FC5327B050FE04379:NONBKID .... etc