if ($elements[2]) { print ("Parsing Error: Line $z\n"); if ($refList{$elements[2]}) { print ("Already Present in file\n"); } else { print "No match in reference file\n"; print (NEWALIGN $alignment->{$z}."\n"); print (NEWACC $elements[2]."\n"); } }