sub clear_array{
    my($self, $var) = @_;
    my @array;
    for(my $i = 0; $i < $var; $i++){
           for(my $j = 0; $j < $var; $j++){
                  $array[$i][$j] = 0;
           }
    }
    return @array;
}