open F, "some_file" or die $!";
my @lines = <F>;
close F;
for (@lines) {
  # .. find the max and minimum
}
for (@lines) {
  # .. do something before / after those indexes
}