redis module and perl -

I have the Strawberry PRL version 5.16.3 and the radis module (1.978) for updating the updated date

Where do I run the following code:

  my $ r = redis-> new; My% hash = (one => 1, b => 2); Forward my $ key (key% hash) to {$ r- & gt; Set (foo = & gt; 'bar'); }  

I get the following error:

  can not use an undefined value as a HASH reference on C: / strawberry-perl- 5.16.3.1-64 bit-portable / perl / site / lib / io / socket / time-out PM line 101  

Is there any problem related to this problem or is there any problem to fix this problem? To know?