use strict; use warnings; our @lines = ; chomp @lines; our %uniques; @uniques{@lines} = (); print "$_\n" for keys %uniques; __END__ Name1 Name2 Name2 Name3 Name3 Name3 Name3 Name4 Name4 Name5 Name5 Name5 Name5 Name5 Name6 Name6 Name7 Name7 Name7 Name8 Name8 Name9 Name9 Name9