Select Code to Download

my %buddys = $p->BuddyList;
foreach my $key (keys %buddys) {
    print "GROUP: key\n";
    print "NAMES: ", join (' ', @{$buddys{$key}}), "\n";
}