#!/usr/bin/perl -w

use strict;

my %a = qw(
      60622  1
      60516  1
      60201  1
   );

my %b = qw(
      90210  1 
      60622  1
      12345  1
   );

my %c = qw(
      11412  1
      32134  1
      60201  1
   );

open OUTPUT_A, ">a.txt" or die "Can't open OUTPUT_A: $!\n";
open OUTPUT_B, ">b.txt" or die "Can't open OUTPUT_B: $!\n";
open OUTPUT_C, ">c.txt" or die "Can't open OUTPUT_C: $!\n";

while (<DATA>) {
   chomp;
   my($fn, $ln, $id) = split(",", $_);
   
   if (exists $a{$id}) {
      print OUTPUT_A $fn, $ln, $id;
   } elsif (exists $b{$id}) {
      print OUTPUT_B $fn, $ln, $id;
   } elsif (exists $c{$id}) {
      print OUTPUT_C $fn, $ln, $id;
   } 
}

close OUTPUT_A; 
close OUTPUT_B; 
close OUTPUT_C;

__END__
Homer,Simpson,60622
Clark,Kent,90210
Fred,Flintstone,00987