use JSON;

my $hash = {};

open(FILE, ">file.txt")
   or die "Fehler: $!\n";

print FILE to_json($hash);

close(FILE);