sub action {
    for my $i (@list) {
        my $rc = decide($i);
        next unless $rc;
        # Do stuff here with $rc
    }
}

sub decide {
    my $i = shift;

    return 0 if $i =~ /^C/;

    print $i, $/;
}