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