N Queens by Perl. (Array Version)

my $size = $ARGV[0];
my $count = 0;

sub run {
   (my $v,my $arr) = @_;
   if($v == $size){
       $count++;
       return 1;
   }
   my $h = 0;
   while($h < $size){
        my $i = 0;
        for($i = $v - 1; $i >=0; $i--){
            if ($$arr[$i] == $h ||
                $$arr[$i] == $h - ($v - $i) ||
                $$arr[$i] == $h + ($v - $i)){
              last;
            }
        }
        if ($i != -1){
            $h++;
            next;
        }
        $$arr[$v] = $h;
    
        $rv = run($v + 1, \@$arr);
        if($rv ==  -1){
          $$arr[$v] = -1;
        }
        $h++;
   }
   return 1 if($v == 0 && $h == $size);
  
   return -1;
}

run(0,\@arr2);

print $count,"\n";