my @results=();
my @id6=();
for my $i(0..100) {$results[$i] = 2*$i;}
&do_canvas4;