my $h = f(qw[ foo => zoo moo too
              bar => car far
              bar => zar tar
              qux => mux ]);

##</code><code>##

$h = { foo => [ 'zoo','moo','too','bar' ],
       bar => [ 'car','far','zar','tar' ],
       qux => [ 'mux' ] };