Select Code to Download

my %hash = (
            '.111' => 'Aaaa',
...
           );

$hash{$_} = substr $hash{$_}, 2 for keys %hash;

print Dumper \%hash;
-- -- -- -- -- -- -- --
$VAR1 = {
...
          '22' => 'Bbbb',
          '11' => 'Aaaa'
        };