Select Code to Download

for( some loop condition or contruct ) {
    my( %hash1, %hash2, %hash3 );
    ## do stuff with them ...
}

undef %$_ for \(%h1,%h2,%h3);