print map {
    $$_[1]
  } sort {
    $$a[0] <=> $$b[0]
  } map {
    /(\d+)/;
    [$1, $_]
  } <FILE>;