use Data::Dumper;
...
foreach my $id (keys %id2seq) {
    warn "ID: $id";

    my @segments = split /\|/, $id;
    warn "Segments: " . Dumper \@segments;

    my $filename = $segments[0];

    ...
}