do{ my $x = {
       'blib' => 1,
       't/Sample/pod2htm*' => 1
     };
$x; }