for (@array){
    $hash{$_} = OBJ->new;
    ... work using variable...
}