Select Code to Download

$VAR1 = {
  '12349' => [
...
};
my $href = $VAR1->{12349}[0];
print $href, "\n";

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