$ perl -w ./hashslices.pl
Use of uninitialized value within %hash in join or string at ./hashslices.pl line 12.
%hash = ();
%hash = (
          'key' => undef
        );