foreach my $line (<FILE>) {
  # etc
}
my @lines = sort <FILE>;
print <FILE>;