package Example;

use strict;
use warnings;
use Exporter;
    our @ISA=qw(Exporter);
    our @EXPORT=qw(with_each_row in_summary);
use Data::Dumper;
use 5.01800;

    my %_H;
    sub with_each_row {
        my ($_HREF)=@_;
        warn Data::Dumper->Dump([\$_HREF],[qw(*_HREF)]),' ' if ($main::opts->verbose());

        $_H{$_HREF->{regulation}}++;

        };

    sub in_summary {

        for my $key (sort keys %_H) {
            printf "%10s:%-10s\n",$key,$_H{$key};
            };

        };

    1;