$self->{_$_} = $args{$_} for qw(
        roundnum room judge type code contestants
    );
[download]

The "_NAME" convention's purpose is a mnemonic one, and this (purpose) is not well served when used on $_. Don't you think it's better to use a named lexical for the for(each)?s scope here, dude?