Two small remarks:

• for (@colors){
    print "Color  = $_\n";
  }
  [download]

  can lead to nasty surprises as you are overwriting $_ of the while loop. So either add local $_; before the loop or use a loop variable

  for my $color (@colors){
    print "Color  = $color\n";
  }
  [download]

• if (($data[0]) && ($data[1]) && ($data[2])) {

  is quite restrictive. This doesn't allow for empty fields or lines without date. Alternatives would be if (@data == 3) or the next if suggestion by dragonchild. Of course, basicdez has to specify himself which of the alternatives fits his requirements.

-- Hofmator