sub printhash {
    for (0...$#_) {
    if ($_ % 2) {
        print $_[$_] . "\n";
    } else {
        print $_[$_] . ": ";
    }
    }
}

...

            printhash %curmsg;