my @Bom = split(/\s+/, $BomLine);