sub compare_lines {
  # return a 1,0,or -1 depending on which of $a or $b is larger
}

my @lines = <FILE>;
sort compare_lines @lines;