#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper 'Dumper';

my @colors = qw( white yellow green );
my %hash;
$hash{ @colors } = @colors;

print Dumper \%hash;

__END__