Why are you calling keys in a scalar context?

If you expect only a single key, use:

my ($key) = keys %$_;
[download]

If you want to iterate, add an inner loop:

for my $key (keys %$_) {
  ....
}
[download]

-- Randal L. Schwartz, Perl hacker