How about just using:

  print $elem . "=" . $status->{$elem} . "\n" if ( $elem eq 'kind' );
[download]

instead of the original print statement?

Also see AnomalousMonk post above Re^3: Iterate JSON File about Data::Dumper.