Perl Loop Through Json Object