sub action {
  for my $i(@list) {
    &decide($i);
    print "Decide sub didn't call next!\n";
  }
}