Select Code to Download

use Storable qw(dclone);
foreach my $b1 (keys %{$ref_1->{'1'}}) {
...
    }
}
print Dumper $ref_1;