sub h {
@w=pop=~/./g;for$a(1..pop){print$_[0],$/;$_=<>;chop;$l{$_}++;@l=map{$l{$_}?$_:'_'}@w;print@l,$/;return 1if!grep{!$l{$_}}@w}
}

if (h('guess', 7, 'foobar')) {
    print "Congratz!\n";
} else {
    print "Boo!\n";
}