open ( F, $variable )  || warn "Can not open $variable: $!\n, $counter++";