use Switch;

$zahl = 0;
print "Gib eine Zahl zwischen 1 und F ein : ";
chomp($zahl=<STDIN>);
print classify($zahl), "\n";


sub classify
  {
  switch ($_[0]) 
    { 
    case 0            { return 'zero' }
    case [2,4,6,8]    { return 'even' }
    case [1,3,5,7,9]  { return 'odd' }
    case /[A-F]/i     { return 'hex' }
    }
  }