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