while ($line = <FB>)   # every line
    foreach (@array)   # every field in that line
        for ($i=0; $i<=$#dbarray1; $i++)  # items in @dbarray1
#           if ($array[10] =~ m/Scan/)
            if (/Scan/)

##</code><code>##

while ($line = <FB>) {
    chomp($line);
    @array = split /\s*\|/, $line;

    if ( $array[10] =~ /Scan/ ) {
        # happiness ensues
    }