use strict;
my($z,$s);

print "Das Ein-Mal-Eins\n";
foreach $z (1..10) {
        foreach $s (1..10) {
                printf " %3d", $z * $s;
        }
        print "\n";
}