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

##</code><code>##

open(FILE, "< $file") or die "Cannot read $file: $!";

##</code><code>##

open(FILE, "cat $file |") or die "Cannot read $file: $!";