Select Code to Download

foreach my $num (keys %{ $test->{dest} } ) {
    print "$num: " . $test->{dest}->{$num}->flags();
}