Select Code to Download

use List::Util qw( reduce );

...
   values %$hdata;

my $banner_path = $highest_rated->{BannerPath};

my $highest_rated;
for (values(%$hdata)) {
...
}

my $banner_path = $highest_rated->{BannerPath};