foreach my $color (@colors)                # Was:  for ($i = 1;$i <= $#line;$i++)
{
    $hash{$color}{$fruit} = 1;             # Was:  $hash{$d}{$i}=$line[$i];
    print "Added hash{$color}{$fruit}\n";  # Was:  print "$hash{$d}{$i}\n";
}