Select Code to Download

my $category = first { ... } ... ;
if ($category) {
    $category = $category->[1];
    print "[INFO] Category: $category\n";
}

map $_->[1],
grep $_,
first { .... } ...;