Perl if-clauses