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