#! /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 ) ;

##</code><code>##

syntax error at ./t.pl line 7, near "} @arr "
Execution of ./t.pl aborted due to compilation errors.

##</code><code>##

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


##</code><code>##

4 --> 4
1 --> 1
3 --> 3
2 --> 2
5 --> 5