print encode_json(\@perl_array)