sub even
{
  my @a = @_;
  foreach $number(@a)
  {
   if($number%2==1)
    {
     $number = $_;
    }
    print "$number";
  }
 print " = Even numbers\n";
}
sub odd
{
  my @a = @_;
  foreach my$number (@a)
  {
   if($number%2==0)
    {
      $number = $_;
    }
   print "$number";
  }
print "= odd numbers\n";
}