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