my $found = 0; foreach my $carroadnameverify2 (@lines) { if ($carroadnameverify2 =~ /$carroadnameverify/) { printf " %-13s %-15s %-12s %0s", split(/:/, $carroadnameverify2); $found = 1; last; } } print "CAR RECORD NOT FOUND" unless $found;