#!/usr/bin/env perl 
use strict;
use warnings;
use Data::Dumper;

my @array = qw/x y z/;
my %HoA;
foreach my $R2 (@array) {
    push @{$HoA{$R2}}, $R2
}
print Dumper (\%HoA);