my $encoded = JSON::XS->new->utf8->encode( $HREF );
my $decoded = JSON::XS->new->utf8->decode( $encoded );
store $decoded, $filename1;