Select Code to Download

my $data =
[
...
    values %{ +{ map { ($_->{num},$_) } @$data }};

print join ', ', map { $_->{num} } @sorted;