{ foreach my $sservice (qw(serial-console pppoe modSSL pam_abl pam_faillock)) { $DB->set_prop($sservice, "type", "configuration") if ${$sservice}{type} eq "service"; } }