Try something like this (probably a better way to write the regex)

use JSON qw(to_json);

$fname = "John";

my %rec_hash = (firstname => $fname);
my $json = to_json  \%rec_hash;

$json =~ s/(.+?\:)\"(\w+)\"/$1$2/g;
print "$json\n";
[download]