package MyLib;

sub myfunc1
{
  myfunc2($somedata);
}

sub myfunc2
{
  my ($somedata) = @_;
  # use $somedata here
}