my ($undef);
while (whatever...) {
    ....
    $hash{$key} = $undef;
}