my $path;

my %hash = ();  #created items/objects
my $line;

while ($line = <CREATEFILE>) 
{
  
  chomp($line);
             	
  ($src, $key) = split (/=/, $line);
  push( @{$hash{$key}}, $src);
   
}