#!perl -w
use strict;
my $param = shift;
eval print $param;

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


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

        print "++++";

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

##</code><code>##

perl xyz.pl 'egal("20090316","7006")'

##</code><code>##

"++++false"

##</code><code>##

#!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;
}

##</code><code>##

perl xyz.pl 

##</code><code>##

++++true