time $(for i in {1..100}; do ./move_to_next.pl> /dev/null; done;)

Perl:
real    0m1.113s
user    0m0.843s
sys     0m0.266s

Python:
real    0m1.852s
user    0m1.516s
sys     0m0.323s