To remove dupes you put things into a hash: my %unique = @data; But honestly, there's no reason to use Perl for this. Just sort -u file > new_file