for my $i ( 1..10 ) { for my $j ( 1..10 ) { print "$stuff\n"; } }