my $filename = (split /\|/, $id)[0];
        open  my $out_fh, '>>', "$filename" or die $!;