sub getFDCObjects { my $self = shift; my %fdcObjectHash; my @threadQueue; my %switches = $self->getSwitches(); for my $switch (keys %switches) { #my $fdcObject = $self->_openFDCObject($switches{$switch}, $switch); my $swObject = $switches{$switch}; my $threaddo = sub { my $self = shift; my $swObject = shift; my $switch = shift; my $fdcObject = FosDataCapture->new($log, $swObject); return ($fdcObject, $switch); }; my $thread = threads->create($threaddo,$swObject, $switch);