$chomp=($line);


@a=split(/;/,$line);
push(@record, @a);



foreach (@record)
{
  $i++;


  if ($i eq 1){
  push (@string_part_one,$_);
  }
  if ($i eq 1){
  push (@string_part_two,$_);
  }