my $zahl1 = 1;
if ($zahl1 % 2 == 0)
{
print "ganzzahlig";
}
else
{
print "nicht ganzzahlig";
}