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

use Foo;

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

foreach my $pos (@{$subref->{order}}){
  my $sub = $subref->{dispatch}->{$pos};
  Dump ($sub);  ###!!
}