#!/usr/bin/perl
#
@dbarray1 = ();
@dbarray5 = ();
open(FA, "fa.txt") || die "Cannot find the FA file. \n";
while ($line = <FA>)
        {
        chomp($line);
        @dbarray = split (/ /,$line);
        push(@dbarray1, $dbarray[1]);
        push(@dbarray5, $dbarray[5]);
        }
close(FA);

open(FB, "fb.tsv") || die "Cannot find the FB file. \n";
while ($line = <FB>)
        {
        chomp($line);
        @array = split (/\s*\|/, $line);
        foreach (@array)
                {
                 ($array[103] =~ m/^DB(\d{1,2})/);
                 $db_no = $1;
                 for ($i=0; $i<=$#dbarray1; $i++)
                        {
                        if (($dbarray1[$i] == $db_no) && (/Pointed/))
                                {
                                $pointed_result = $array[16]*$dbarray5[$i];
                                }
                #       if ($array[10] =~ m/Scan/)
                        if (/Scan/)
                                {
                                $scan_result = $array[16]*$dbarray5[$i]+20;
                                }

                        }
                }
        }
close(FB);