use strict;
use warnings;

my %reglist = ( 
		qr/food?/      => sub { print "\t1\n" }, 
		qr/b[a4]rd?/   => sub { print "\t2\n" }, 
		qr/baz(o+ka)?/ => sub { print "\t3\n" } );

foreach (qw(foobarbaz football barcode none bazoooooka)) {
		print "$_\n";
		for my $regex (keys %reglist) {
				$reglist{$regex}() if /$regex/;
		}
}