Your last print statement is guarded by an else clause. Think about whether you want to always execute that statement, and also look at the sequence of conditions that leads up to that statement.

Also, in Perl, eq and == are different. eq is for string comparison, while == is for numbers. Only in very rare cases should you mix eq with < or >.