my %hash = map { $_, 1 } @castaways;
foreach my $person (@list_1) {
    if( $hash{$person} ) {
        print "$person is a castaway.\n";
        #do something more
    }
}