03.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;

my $num = 10;
my @arrWithNum = (1, 2, 3, 10, 9, 11, 12);
my @arrWithoutNum = (1, 2, 4, 5, 3, 8, 9);

sub Exists {
    my $searchStatus = 0;
    my $elem;
    my ($x, @myArr) = @_;
    foreach $elem (@myArr) {
        if ($elem eq $x) {
            $searchStatus = 1;
            last;
        }
    }
    return $searchStatus;
}

print Exists($num, @arrWithNum) . "\n";
print Exists($num, @arrWithoutNum);