sub h {
    my ($x,$y)=@_;
    print "the val of x is $#$x and y is $#$y\n";
}
sub j {
	my ($i, $j, $k)=@_;
    print "\ni am in the function j\n\n";
    &$k($i,$j);
}
@ar = qw/1 2 3 4/;
@vr = qw/56 7 8 9/;

&j (\@ar, \@vr, \&h);