print OUT for map{
  s[(^\d+\s+)[\d\.]+\s+][$1];
  "$year\t$_";
} sort { 
# ... etc.