my %options = (
	one => sub {
		print "one\n";
		return 1;
	},
	two => sub {
		print "two\n";
		return 1;
	},
	three => sub {
		print "three and break the loop\n";
		return 0;
	},
	'' => sub {
		print "Default\n";
	},
);

##</code><code>##

if( exists $dispatch{ $action } ) {
	 $dispatch{ $action }->();
}
else {
	$default->();
}
##</code><code>##

&{ $dispatch{ $action } || $default }();

##</code><code>##

while ( chomp( my $opt = <STDIN> ) ) {
	&{ $options{ $opt } || $options{ '' } }()
		or last;
}