#!perl -w
use strict;
#my $param = shift;
my $param = egal("7006","7006");
eval print $param;

sub egal ()
{
         my $result;
         my @arg = @_;


         my $test = $arg[0];
         my @test = grep (/$test/i, @arg);

         print "++++";

         if ($#test == $#arg)
         {
                 $result = "true";
         }
         else
         {
                 $result = "false";
         }
         return $result;
}