my $BKSIC_MODEL[$i] = substr ($line, 3, 7);
$BKSIC_MODEL[$i] =~ s/^\s+//;
$BKSIC_MODEL[$i] =~ s/\s+$//;