Select Code to Download

 
print "<td>$list_of_teamdata[0][1]</td> \n";

my @list_of_teamdata ;
$pain = 0;
...
 
print "</body>"; 
print "</html>";