sub foo {
    local @ARGV = @_;
    .
    .
    .
}

##</code><code>##

sub verify_function_params
{
 
   my $num = $_[0];
   my $function_name = $_[1];
   my $input =  $_[2];
   my $type = $_[3];
 
 
   my $argument_size = scalar(@_);
 
   print "argument_size is $argument_size\n";
   .
   .

##</code><code>##

sub verify_function_params
{
 
   my $num = $_[0];
   my $function_name = $_[1];
   my $input =  $_[2];
   my $type = $_[3];
   .
   .

##</code><code>##

sub verify_function_params
{
   my ($num, $function_name, $input, $type) = @_;
   .
   .