Linux version: perl -lane '@u{@F}=() if $s{join "", sort @F}++ }{ print for keys %u' genes.txt Windows version: perl -lane "@u{@F}=() if $s{join '', sort @F}++ }{ print for keys %u" genes.txt