if (@ocean{$neptune}) {
    wash_blood (my $hand);
} else {
    foreach $sea (@ocean) {
        incarnadine($sea);
    }
    $green_one = "red";
}