Print statements aren't an accurate way to measure performance. Try using Devel::SmallProf. It can be used from the command line like so perl -d:SmallProf your_script.pl. The output shows how often each line is executed and the amount of time it used.