How to create nesting hashes given the innermost value and an array of keys?

EchoAngel has asked for the wisdom of the Perl Monks concerning the following question:

E.g. given the array @a = qw/foo bar burp/ and the value 1, create a hash like

%h = (
      'foo' => {
                 'bar' => {
                            'burp' => 1
                          }
               }
      );
[download]

Originally posted as a Categorized Question.

Back to Seekers of Perl Wisdom