$ perl -we 'use Data::Dumper; $foo{bar} =~ s/a/A/; print Dumper \%foo'
Use of uninitialized value in substitution (s///) at -e line 1.
$VAR1 = {
          'bar' => undef
        };