#!/usr/bin/perl
use Foo;
my $foo = Foo->new qw(Foo::Bar Foo::Baz );
for ( @{ $foo->{'submodules'} } ) {
    print $_->details->{'name'} 
      . " is a "
      . $_->details->{'job'}
      . $/;
}
# prints: Simon is a doctor