#! /usr/bin/perl -l
use strict;
use warnings ;

my @arr = qw(1 2 3 4 5) ;

my %h = map { "$_" => "$_" } @arr ;

print "$_ --> $h{$_}" foreach ( keys %h ) ;