my %hash = ( foo => 'bar', (baz => $quux) x!! $quux, # list repitition, see "x" in perlop );