use JSON;
use Data::Dump "dd";
my $leg_str =<<'END';
{
"aa": "label1",
"ab": "label2",
...
"er": "last label"
}
END
my $leg = decode_json($leg_str);