A better way, a perl way?

[Jerry Preston]

I am looking for a better way, a perl way for the following:

    foreach ( @data ) ) {
      s/^ //;
      $data_[ $jp++ ] = $_;
    }


I have seen a one liner using while, but I do not remember.

Thanks,

Jerry