test if statements perl test