A few things:

1. Check out perldoc perlsub for information about using prototypes and what &j() actually does.
2. sub j ($i,$j,$k) { should be replaced with sub j { ($i,$j,$k) = @_;
3. To get a reference to a sub, use \&h.

Put it all together and you get:

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); # or $k->($i,$j);
}
my @ar = qw/1 2 3 4/;
my @vr = qw/56 7 8 9/;

j(\@ar, \@vr, \&h);
__END__
[download]