Select Code to Download

#! /usr/bin/perl -l
use strict;
...
my %h = map { "$_" => "$_" } @arr ;

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

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

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