$divesub  = sub { somesub('divesub')  };
$raisesub = sub { somesub('raisesub') };

sub somesub {
     if ( $_[0] eq "divesub") {
        &dive;
    } else {
        &surface;
    }
}