10 by 10 Multiplication Table in cgi perl

#10 by 10 multiplication table

$data1 = 0;
$data2 = 0;
$data3 = 0;
$result1 = "";

for ($data1 = 1; $data1 <= 10; $data1++){
      for ($data2 = 1; $data2 <=10; $data2++){
        $data3 = $data1 * $data2;
        $result1 = "$data1*$data2=$data3,\t";
        print $result1;    
      }#end of 2nd for loop
print "\n";
}#end of 1st for loop