Select Code to Download

use constant foo =>{
                        key1 => val1,
                        key2 => val2
                    }

while(($key.$val) = each(foo))
{
   print $key{$val};
}

Ref  : HASH$VAR1 = {
          'key1' => val1,
           'key2' => val2
        };