sub marine($string, \%hash)
##</code><code>##

sub marine
{
my $line = shift;
my(%hash) = %{(shift)};
...
}