my $x = 4; 
my $y = 4; 
for (1..$x) { 
    print "*" x $y, "\n"; 
}