Do you use blank lines in your code?(programmers.stackexchange.com)

    sub parse_class_file {
      my($fn) = @_;

      my ($name, $super);
      # my $interfaces = [];  # Not used yet

      my $constant_pool = [];
      my $fields = {};  # Referenced by name
      my $methods = {}; # Referenced by name_description

      open(C, "$fn") or die("Could not open '$fn': $!\n");

      # Cafebabe
      my $magic = read_field(\*C, "H*", 4);

      # Class file format version
      my $minor = read_field(\*C, "n");
      my $major = read_field(\*C, "n");

      # Load constant pool
      load_constant_pool(\*C, $constant_pool);

      # Class name, inheritance
      my $access_flags = read_field(\*C, "n");
      my $this_class_index = read_field(\*C, "n");
      my $super_class_index = read_field(\*C, "n");

      # Load interfaces -- just throw them away for right now
      my $interface_count = read_field(\*C, "n");
      for(my $i = 0; $i < $interface_count; $i++) { read_field(\*C, "n"); }

      load_fields(\*C, $fields, $constant_pool);

      load_methods(\*C, $methods, $constant_pool);

      close(C);

      return( { name => $constant_pool->[$this_class_index]->{name},
               super => $constant_pool->[$super_class_index]->{name},
               fields => $fields,
               methods => $methods } );
    }

  for (int i; i < 10; ++i) {
    if (i % 3 == 0) {
      continue;
    }
    array[i] += 2;
  }

    int i;
    
    for (i; i < 10; ++i) {
        if (i % 3)
            array[i] += 2;
    }

  for (int i; i < 10; ++i)
  {
    if (i % 3 == 0) continue;

    array[i] += 2;
  }

  for (int i; i < 10; ++i)
  {
    if (i % 3 != 0){
      array[i] += 2;
    }
  }