map {break if /shore/} @world;
do search();
until you_see("the_doves");

if(-e "ocean.txt") {
	open OCEAN, "ocean.txt" or die;
	map {print $_."waves "} <OCEAN>;
	close OCEAN;
} else {
	return "it was just a miracle $$";
}