Hey,guys I have to create the subroutine that will take the even and odd numbers from an array and print them out but I Haven't been able to combine the 2 into 1 this is what I have

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";
}
[download]