Select Code to Download

foreach my $id (@array4) {
    print "User $id\n";
...
    }
    print "\n";
}

OUTPUT:

...
         Not Used