perl weird1.pl 42