perl beuto2.pl Missing $ on loop variable at beuto2.pl line 3.