#!/usr/bin/perl -w
use strict;
my %Foo = ('Routine' => {
		SUB => \&Routine,
		FLAG => 1 },
	'Option' => {
		SUB => \&Option,
		FLAG =>	0 }
);

foreach (keys %Foo) { 
    $Foo{$_}{SUB}->() if $Foo{$_}{FLAG}; 
}