If the data is as you show in the example then you do not need the loop, you can just access whatever you need directly. To see what is happening within your loop, add another print statement:

for my $key ( keys %$data ) {
  print "key: $key\n";
  ...
[download]