[perl] problem mit if abfrage