Select Code to Download

foreach my $size ( keys %$size_hash ) {
##.................^^^^^^^^^^^^^^^^

    while( my( $size, $ref ) = each %{ $size_hash } ) {
        print $fh $size . '=[';
...
        }
        print $fh ']' . "\n";
    }