scalar(@dev_list) == $#dev_list + 1;
scalar(@xref) == $#xref + 1;

for ($i=0; $i < (scalar(@dev_list)); $i++) {
  print STDOUT "Looking for $dev_list[$i]\n";
  for ($c=0;$c < (scalar(@xref)); $c++) {
    if($xref[$c] =~ /$dev_list[$i]\./i) {
      $templine = join "_","\@dev_xref",$dev_list[$i];
      $dev_array_ref = \($templine);
      push(\$dev_array_ref, $xref[$c]);
     }
   }
}