$ perl -le'
   for (1..2) {
      print map { my $x=$_; $_="!"; $x } 1..5
   }
'
12345
!!!!!