I dont get an warnings or errors running your code - but I have not tried to figure out its logic because, with respect, it written like garbage.

What version of perl are you running?