sub enum {
    local($_)=@_;
    my(@specs)=split(/,/); #changed from local to my as it is preferable since perl 5.
    my $val;
    for (@specs) {
        if (/=/) {
            $val = eval $_;
        } else {
            eval $_ . ' = ++$val';
        }
    }
}