Select Code to Download

#!c:\perl\bin\perl.exe

use strict;
...

OUTPUT:
lane # is 5

for (my $i = 1; $i <= 8; $i++) {
   $buildvar = "\\\@" . "lane01_" . $i;
   $arrayref = eval($buildvar);
...
      }
   }
}