Help for this page

Select Code to Download

Select or download this

sub eilys_code {
    my $bar;
    my %cache;
...
    print '*** kens_code ***';
    print "@{[ $_, $#{$bar->{$_}}, $bar->{$_}[0] ]}" for keys %$bar;
}