Select Code to Download

my $names =
[
...
        id   =>  undef,
    },
];

foreach my $a (@{ $names }) {

   push(@ids, $a->{id} // ());
}

my $ids = join ',', map { $_->{id} // () } @$names;