$ perl -MData::Dump -e 'my %x; my @y = qw{a b c}; push @{$x{$_}}, $_ for @y; dd \%x'
{ a => ["a"], b => ["b"], c => ["c"] }