And if you would have declared your variables $line and $key inside the while loop with "my" the error would have been more obvious.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law