my @xentry;
for (0..100) {
   my %h;
   for my $j (0..4) {
       $h{"BUCK_$j"} = 'JUNK';
   }
   push @xentry, \%h;
}