sub marine {
    my ($fore,$mid,$aft) = @_;

}

##</code><code>##

sub marine { 
      my $fore = $_[0];
      my $mid = $_[1];
      my $aft = $_[2];
}