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

##</code><code>##

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