Is there a better 'PERL' way

[Jerry Preston]

Hi,

I am looking for a PERL / better way of writing this:

    foreach my $t ( @{ $T_OWNER_INFO{ $owner }} ) {
      $items[ $j++ ] = $t;
    }
    $name  = $items[ 0 ];
    $phone = $items[ 1 ];
    $pager = $items[ 2 ];
    $email = $items[ 3 ];

Thanks,

Jerry


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]