use Data::Dumper;

sub f (&$\%\@&$;\%\%\%\%\%\%\%){ print Dumper \@_ ; }
sub new { bless {}, shift }
my @arr = my %h1 = my %h2 = my %h3 = my %h4 = my %h5 = my %h6 = my %h7 = (1,2) ;
f sub { 1+1 }, main->new, %h1, @arr, sub { 1+2 }, main->new,%h2, %h3, %h4,%h5, %h6,%h7, ;