use Data::Dump qw(dump);

warn "Dump " . dump( $j );