my @stats = <DATA>;

foreach my $line (sort { $a->[0] <=> $b->[0] } 
                  map { chomp; [split /\|/] } @stats) {
    my ($rate, $team, $comment, $gotdate) = @$line;
    print "$rate $team  $comment\n";
    print "<br>";
    print "$ip $gotdate\n";
    print "<br><br>";
}

__DATA__
10|A|Blah|10/1/02
14|B|Blah p9sdf kljsfd |1/6/01
4647|C|Blah adsg|15/7/02
1235|D|Blah fdfd|10/2/02
[download]

gav^