use strict; my %guard; my @unique; while (<>) { chomp; next if exists $guard{$_}; push @unique,$_; $guard{$_} = undef; } print join(" ",@unique),"\n";