my $x = 4; 
my $y = 4; 
for my $xx (1..$x) { 
  for my $yy(1..$y) {
    if( something ){
      print ' ';
    } else {
      print "*";
    }
  }
  print "\n";
}