use Win32::OLE;
my $dict = Win32::OLE->CreateObject("Scripting.Dictionary");
$dict->Count();      # how many Items
$dict->Add( $key, $value);
my $val =  $dict->Item($key);