#!/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";
}

##</code><code>##

Can't use string ("Option") as a subroutine ref while "strict refs" in use at ./foo.pl line 7.