After the my statement is executed. In the read FH, my $buffer, $len case, you're using my as an lvalue, while in the posted snippet, you try to use the variable as an rvalue before the my has executed.

Update: D'oh! Brainfart. I said rvalue where it's an lvalue and vice versa. Post fixed.

Makeshifts last the longest.