foreach my $key(keys %{@{$json}[0]}) { print "$key - "; print ${@{$json}[0]}{$key}; print "\n"; }