Select Code to Download

my $k=0,$str="";
 for(my $i=0; $i<4;$i+=1)  { 
...
        $h{"BUCK_$j"} = $bucket[$k+$j]; 
        push @entry,\%h;
    }

    $hash_table[$i] = { ENTRY  => [@entry]};
    $k+=8;
...
for(my $i=0; $i<4;$i+=1)  {
    print "ENTRY-0-BUCK-0::", 
        $hash_table[$i]->{ENTRY}->{BUCK_0}, "\n";

}