Select Code to Download

C:\Steve\Dev\PerlMonks\P-2013-10-06@2342-Hash-Of-Hashes>FruitColor1b.p
+l
strawberry red green rose
...
key = 'green'   subkey = 'strawberry'
key = 'red'   subkey = 'strawberry'
key = 'red'   subkey = 'apple'

use strict;
use warnings;

my %hash = ();

for ($i = 1;$i <= $#line;$i++)
{
...
    $hash{$d}{$i}=$line[$i];
    print "$hash{$d}{$i}\n";
}

{apple}{1} = 'red'
{apple}{2} = 'green'

{apple}{red}
{apple}{green}

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";
}

}
close (MYFILE);

foreach my $key (keys %hash)
{
...
        print "key = '$key'   subkey = '$subkey'\n";
    }
}