for (my $i = 1; $i <= 8; $i++) {
   $buildvar = "\\\@" . "lane01_" . $i;
   $arrayref = eval($buildvar);
   for(my $j = 0; $j < (scalar(@$arrayref)); $j++) {
      if($$arrayref[$j] == $vector) {
         print("lane # is $i\n");
      }
   }
}