$i =0;
while (my $name[$i] = <DBFILE>) {
   chomp $name[$i];
   my $color = <DBFILE>;
   my $pattern =  <DBFILE>;
   my $dbcd = <DBFILE>; 
   chomp ($color, $pattern, $dbcd); #yep, all at once!
   # now go on as before ...
   $i++;
}