c:\@Work\Perl>perl -wMstrict -le
"use JSON;
 use List::MoreUtils qw(zip);
 ;;
 use Data::Dump;
 ;;
 my @array1 = qw(red   blue   green);
 my @array2 = qw(black orange white);
 my $hashref = { zip @array1, @array2 };
 dd $hashref;
 ;;
 my $j_str = encode_json $hashref;
 print qq{fresh: '$j_str'};
 ;;
 $j_str =~ tr/{}\"//d;
 print qq{stripped: '$j_str'};
"
{ blue => "orange", green => "white", red => "black" }

fresh: '{"green":"white","blue":"orange","red":"black"}'
stripped: 'green:white,blue:orange,red:black'