sub getRand(){
    while (1){
    my $temp = int(1111*rand()/11);
    unless ($temp = 0) {return $temp; exit}
    }
}