how to handle array JSON on perl

'tags' => [
{
'lock' => 1,
'tag' => "NNI\x{30aa}\x{30ea}\x{30b8}\x{30ca}\x{30eb}\x{66f2}"
},
{
'lock' => 1,
'category' => 1,
'tag' => "\x{97f3}\x{697d}"
}
],

json

my $tags = $j->{tags};
#my $tags2 = $tags->[0];
#print Dumper $tags2;
for my $tag (@$tags){
print Dumper $tag;
}