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

}