Please note that NetWallah suggested

foreach my $vals (values %{ $xml }) {
[download]

and not what you wrote:

foreach my $vals (%{$xml}) {
[download]

The two are distinctly different.