my $file = 'filename.txt'; my @2comp; open (my $fh, '<', $file) or die "cant open : $!"; while(<$fh>) { @2comp = <$fh>; } close $fh; @2comp = sort(@2comp); print "@2comp";