my $goal = "what is to be accomplished?"; my @tasks = qw( all the necessary steps to get there ); if ( absolutely_necessary($goal) ) { do work(@tasks) or die "$!, but the rest of us forge on"; } elsif ( want_to_accomplish($goal) ) { do work(@tasks); }