sub something_useful {
   my $x = _helper(shift);
   return $x;
}
sub _helper {
   ...
}