for ( @list ) {
    $hash{$_} ||= ( 1 + keys %hash );
}

for ( @list ) {
    $hash{$_} = ( $hash{$_} || ( 1 + keys %hash ) );
}