# ... start of code
(@curusers = ars_GetListUser($ctrl, 2)) || die $ars_errstr;

foreach my $hashref (@curusers) {
  print "userName: ", $hashref->{userName}, " licenceType: ", @{$hashref->{licenseType}}, "\n";
}
# ... rest of the code here