sub upper {

$var;

runge::kutta things happen with help of dydt

sub help {
do something using $var from sub upper
}

sub dydt {
return help(blah);
}

}