my @temp;
my @face_ac;
my $size;
my %solvent_face;

open(my $fh,'<', $file) || die "Can not open file: $!";

while (my $row = <$fh>) {
  chomp $row;

if ($row=~/\d+ F/) {
    @temp=split(' ',$row);
    push @face_ac, @temp;

  }

  if ($row=~/\d+ [a-z]/) {
    @temp=split(' ',$row);
    if ($temp[2]==0) {
      $size=@face_ac

        for (my $i = 1; $i < $size+1; $i++) {

          $solvent_face{$temp[1]."_".$face_ac[???]}=$face_ac[???];

        }
       print "@temp\n";
    }

  }

}
close $fh;