#!/usr/bin/perl -- use strict; use warnings; use Data::Dump qw/ dd /; use Hash::MultiValue; my $hash = Hash::MultiValue->from_mixed({ foo => [ 'a', 'b' ], bar => 'c', }); dd( $hash->as_hashref_mixed ); dd( $hash->as_hashref ); dd( %$hash ); __END__ { bar => "c", foo => ["a", "b"] } { bar => "c", foo => "b" } ("bar", "c", "foo", "b")