while ($i = <STDIN>) {
    chomp $i;
    if ($i) {
        $buffer{$i} = 1;
    }
    else {
        last;
    }
}