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