use strict;
use warnings;
use Data::Dumper;
my %foo;
$foo{+length} = 42;
$foo{length} = 'interminable';
print Dumper \%foo;