#!/usr/bin/perl -w
use strict;
my %Foo = ('Routine' => 1,
	    'Option'  => 0);
foreach (keys %Foo) {
  &$_() if $Foo{$_};
}

sub Routine {
  print "We're in routine.\n";
}

sub Option {
  print "We're in option.\n";
}