Pass parameters to anonymous array with loop in PERL

Question

I have issues understanding this PERL module, I am very new to PERL, where main logic is within the ExternalLibrary::registerJob and it is executed as listed below,