redis muti perl hash

#!/usr/bin/perl

use Redis;
use Data::Dumper;
my $r = Redis->new( server => '192.168.196.133:6379', reconnect =>60,every =>9_000_000,debug => 0 ); #ip and orgip

use Redis::Hash;

tie(my %hash, 'Redis::Hash', undef, (server => '192.168.196.133:6379'));

foreach $i (1..10){
   foreach $j (100..200){
    $j="H$j";
    $hash{$j}{$i}=$i*$j;

   }
}