c:\@Work\Perl\monks>perl -Mstrict -le
"use warnings;
 use Data::Dumper;
 warn Dumper( { a => 'a' =~ m/b/,  b => 'asdf' } );
"
Odd number of elements in anonymous hash at -e line 1.
$VAR1 = {
          'a' => 'b',
          'asdf' => undef
        };