map is particularly suited to that ismember functionality and undef() returns the Perl equivalent of a null value...

my ( $result, $count ) = (undef(),0);
map ( $result ||= $count if ( $_ eq "string" ); $count++; } @array;
[download]

Update: Note that in Perl, 0 is the first position in an array.