use strict;
print $x*$x for my $x (0..10);