#!/usr/bin/perl
use strict;
use diagnostics;

my @i = (5);
my $n;

map {
  $n = @i[1..0];
  print $n.":";
  my $u = "z";
} (6,2,3,4);

print "outside:";
print $n;