my @html = ();
my $y = 0;
for( my $x=0; $x<=100; $x++ ){
    $y = $x * 2;
    push @html, qq~
<tr><td>$x</td><td>$y</td><tr>
    ~;
}