my @mystrings = ("string") x 200;
my @i = 0..$#mystrings;

m/$mystrings[$i[100]]/;