#!/usr/bin/perl -w

$string = "That is test";
@list = (1,2,3,4,5,6,);
$index = index ($string, 'is');

print "Position of is in the string $index\n";
print "Print list @list\n";