#!/usr/bin/perl

sub matches(&;@) {
	my $coderef = shift ;
	my @data = @_;
	for  (my $i=0; $i <=  $#data; $i++ ){
		$_ = $data[$i];
		if (&$coderef){
			return wantarray ?  ($_ ,($i  ) ) : $_;
		}
	}
	
	return;	 	
 }


my @actions = qw(get fetch store info print);

if (my ($v,$i) = matches { $action eq $_ } @actions ){
	print "Found $v at $i\n";
}
# Or
if (my $v = matches { $action eq $_ } @actions ){
	print "Found $v $i\n";
}
# Or
die "Damn! Invalid action $action" unless matches{$action eq $_ } @actions;