NetBSD/gnu/dist/gawk/awklib/eg/misc/arraymax.awk

{
  if ($1 > max)
    max = $1
  arr[$1] = $0
}

END {
  for (x = 1; x <= max; x++)
    print arr[x]
}