if ((my $index = index $string, $key) >= 0) {
    ...
}

##</code><code>##

use Devel::Peek qw( Dump );
Dump(index('abcdef', 'abc'));  # IOK ==> number
Dump(index('abcdef', 'xyz'));  # IOK ==> number