きもい.pl

kimoi.pl

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

my @arr = qw/ran miki suu dia/;

my %hash = map {$_ => "hoge", "piyo"} @arr;

warn Dumper \%hash;

# 結果
# +{
#     'piyo' => 'dia',
#     'suu' => 'hoge',
#     'ran' => 'hoge',
#     'hoge' => 'piyo'
# };