#!/usr/bin/perl -w
use strict;
my @list = qw(Charles Cody Gina);
&action;

sub action {
  for my $i(@list) {
    &decide($i);
  }
}

sub decide {
  my $i = shift;
  next if (/^C/);
  print "$i\n";
}