#!/usr/bin/perl -w

use strict;

my @a = qw(
		60622
		60516
		60201
	);

my @b = qw(
		90210
		60622
		12345
	);

my @c = qw(
		11412
		32134
		60201
	);

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(",", $_);
   # print $fn, $ln and $id to OUTPUT_A if $id = @a[0,1,2...n]
   # elsif print $fn, $ln and $id to OUTPUT_B if $id = @b[0,1,2...n]
   # elsif print $fn, $ln and $id to OUTPUT_C if $id = @c[0,1,2...n]   
}

close OUTPUT_A; 
close OUTPUT_B; 
close OUTPUT_C;

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