use JSON qw(objToJson); # from the CPAN

 my $data = [
        [ "264","O","3"],
        [ "24","ED","5","Enh"],
        [ "368","B", "fng"] 
           ];
print objToJson($data), "\n";