print "<table>\n";

print for
  map sprintf( "<tr><td>%d</td><td>%s</td></tr>\n", @$_ ),
  sort { $a->[ 0 ] <=> $b->[ 0 ] }
  map { chomp; [ split /\|/ ] } <DATA>;

print "</table>\n";