CS> perl -e 'use Data::Dumper; $k1 = 1; $k2='003'; $h->{$k1} = 1; $h->{$k2} = 2; warn Dumper($h);'
CS> $VAR1 = {
CS>          '1' => 1,
CS>          '3' => 2
CS>        };
CS>