Select Code to Download

my %struct;
foreach my $elem (@elements) { # loop over all the elements
...
  # push a reference to the newly created hash on the array stored for
+ this element type.
  push @{$struct{$elem->name}},\%hash;
}

push @{$hash{$key}},'var' unless @{$hash{$key}}>5;

push @{$hash{$key}},'var' unless @{$hash{$key}||[]}>5;