Select Code to Download

#!/usr/bin/perl -w

...
    print "\nBroker: $_\n"; # this is the broker name
    print $brokers{$_};     # this is the data (includes name)
}

@brokers = keys %brokers;
@data    = values %brokers;