Select Code to Download

my $hdata = <call that creates the struct>;
my ($rating, $bwurl) = 0;
...
         $bwurl  = $hdata->{$id}{BannerPath};
    }
}

use List::Util qw[ reduce ];
...
...
        $a->[1] = $hdata->{$b}{BannerPath}
    }
} [ 0, '' ], keys %hdata };