$x = &z(1, 100, 3);
  
  sub z{
    $a = $_[0];
    $b = $_[1];
    $c = $_[2];
    $d = 0.0;
    $e = 0.0;
  
    for ($i = $a; $i <= $b; $i++){
      if($i % $c == 0) {
        $d = $d + 1;
      }
      else {
        $e = $e + 1;
      }
    }

    if($d > $e) {
      $d;
    }
    else {
      $e;
    }
  }

  $x = z(1, 100, 3);
  
  sub z{
    my( $a, $b, $c ) = @_;
    my $d = 0;
    my $e = 0;
  
    for ($a..$b){
      if($_ % $c == 0) {
        $d++;
      }
      else {
        $e++;
      }
    }
  
    if($d > $e) {
      return $d;
    }
    else {
      return $e;
    }
  }