#!/usr/bin/perl

use strict;
use warnings;

my@num = (1..10);
sub even
{
foreach my$number(@num)
 {
  if ($number%2==0)
  {
   my @evens = $number;
   print "@evens";
  }
 }
}
&even