$clientname_temp = ""; foreach $line (@data) { $clientname = $$line[0]; $jobnumber = $$line[1]; $description = $$line[2]; if ($clientname_temp ne $clientname) { print "$clientname\n$ print "EDIT DELETEJob Number = $jobnumberDescriptionEDIT DELETEJob Number = $jobnumberDescription