#!/usr/bin/perl
use 5.020;
use warnings;
my @aa;
sub{
my @ccc = qw(aa bb cc dd ee
); $aa[0]->{'bbb'}->{ $ccc[shift] } = 1; }->("0", "1", "2");
use Data::Dumper;
say Dumper(\@aa);
IyEvdXNyL2Jpbi9wZXJsCnVzZSA1LjAyMDsKdXNlIHdhcm5pbmdzOwoKbXkgQGFhOwoKc3ViewoJbXkgQGNjYyA9IHF3KGFhIGJiIGNjIGRkIGVlKTsgCgkkYWFbMF0tPnsnYmJiJ30tPnsgJGNjY1tzaGlmdF0gfSA9IDE7Cn0tPigiMCIsICIxIiwgIjIiKTsKCnVzZSBEYXRhOjpEdW1wZXI7CnNheSBEdW1wZXIoXEBhYSk7Cg==