use constant ROW_LIMIT => 10000;

sub writeData {
    my ($name, $data) = @_;
    open FH, ">>", "sample_$name";
    print FH @$data;
    # may not be needed (auto close on sub end)
    close FH;
}

my %hash;
my $ctr = 0;
while (<>) {
   my @elems = split /|/;
   my $idx = $elem[1];
   if (exists $hash{$idx}) {
       # save to existing array
       push @$hash{$idx}, $_;
   } else {
       # create new array
       $hash{$idx} = ( $_);
   };

   # if we've got too much data, write it out
   if ($ctr++ >= ROW_LIMIT) {
       # write data to each file...
       foreach my $key (%hash) {
          writeData( $key, $hash{ $key}); delete $hash{$key};
       }
       $ctr = 0;
   }
}

# write remaining data to each file...
foreach my $key (%hash) {
   writeData( $key, $hash{ $key});
}