You are learning about closures. :)

Have a good read at perlsub, and pay close attention to all the talk about lexical scoping.