for my $y ( ... ) {
   for my $x ( ... ) {
      next;
   }
}