Thanks! Here's what the finished code looks like.

my @routines =  (
    \&routine0,
    \&routine1,
        );


$routines[$input]->($input = <>);


sub routine0
{
    print "0";
}

sub routine1
{
    print "1";
}
[download]