C:\usr\local\share\PassThru\perl>perl -MData::Dumper -le "$metrics{product}{today} = 'Wed'; print STDERR Dumper \%metrics"
$VAR1 = {
          'product' => {
                         'today' => 'Wed'
                       }
        };