#!/usr/bin/perl
use strict; use warnings; use Data::Dumper;

use Foo;

my $help   = 'Please display this message';
my $foo    = Foo->new;
my $subref = $foo->subref;

foreach my $pos (@{$subref->{order}}){
  print "POS: $pos\n";
  my $sub = $subref->{dispatch}->{$pos};
  print Dumper($sub);
  &$sub($help);
}