%a = qw/one 1 two 2 three 3 four 4 five 5/;
$l = keys %a;
open OUT,'>numbers.json' or die $!;
print OUT "{\"num\":[\n";
for(sort keys %a){
	print OUT '{"text":"'.$_.'", "value":"'.$a{$_}.'"}';
	--$l ? print OUT ",\n" : print OUT "\n";
}
print OUT "]}\n";
close OUT;