print "$_ => $VAR1->{12349}[0]{$_}\n" for keys %{$VAR1->{12349}[0]};