I'll bite:

#!/usr/bin/perl -w
use strict;
my %file; 
while(<>) { 
   my $type = substr($_,0,3); 
   defined($file{$type)) or open($file{$type}, ">$type.out") 
      or die "Couldn't open $type.out: $!";
   print $file{$type}; 
}
[download]

Here's the run down:

1. a hash to hold file handles
2. while there's more records to read
3. get the first 3 chars in the line and store them in a variable
4. if we haven't already opened an output file called "type.out", do so
5. print out the record we read to the apporopriate file

thor