Named subs don't nest in Perl. That's why you're getting the warning Variable "$self" will not stay shared.

Threads are complex and uneasy, it's better not to use them directly, but use a higher level module, e.g. Thread::Queue. In my opinion, playing with threads before one grasps basic stuff like compile time versus run time is too ambitious and doomed to fail.