>perl -wMstrict -MData::Dump -le
"use constant HASH => qw(foo bar  1 one);
 ;;
 %$_ = HASH for \my (%hash1, %hash2);
 dd \%hash1;
 dd \%hash2;
"
{ 1 => "one", foo => "bar" }

{ 1 => "one", foo => "bar" }