my $worker = sub {
  my ($index,$ar) = @_;
  my ($name,$username,$pass,$url,$enable) = @$ar;
  ..
}