($index) = grep $piclist[$_] eq $pic, 0 .. $#piclist;