for (1 .. 10) {
   my $var = int(rand(100000)) + 1;
   print "$var ist ", (($var & 1) ? "ungerade" : "gerade"), "\n";
}