Try single stepping through your program with the perl debugger perldebug / debugging tutorial and maybe you'll see why it's not working.