perl -we 'my %h; my @x = ( @{$h{a}} )'