#!/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


##</code><code>##

#! /usr/bin/perl
use strict;
use warnings;

my @nums = (1..10);
sub square
{
foreach my$number (@nums)
 {
   my$number = ($number * $number);
   print "$number\n";
 }
}


##</code><code>##


#!/usr/bin/perl

use strict;
use warnings;

sub huge
{
my $num = <>;
if ($num > 1000000)
{
  print "1";
}
else{
  print "0";
}
}
&huge