sub h {
	my ($x,$y)=@_;
	print "the val of x is $#$x and y is $#$y\n";
}
sub j ($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);