my $pos=index (join ("",@array),7);