#!/usr/bin/perl
use strict;

my $str = 'ATCGATCGAT';
my @sub = qw(ATCG CGAT);

my $id = 0;

foreach (@sub) {
	$id = index($str, $_, $id);
	print "$id\n";
	$id++;
}