Select Code to Download

    my @list;
    foreach  my $hand ( in $ou_hand ) {
...
        push @list, $hand;
    };
    return [ @list ];

    [ grep { $_->{Class} eq $type } in $ou_hand ]