It doesn't print 3000 when I run the program. Your solution that you posted looks exactly the same as mine, except you print out the $_ and the '-->'. What is the difference?

What version of perl are you running where it prints 3000?