Привет.

Как уже писали


1

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

2

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

а еще был удивлен таким вариантом

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