$ perl -MData::Dump -e " @f = 1..4; dd [ map { s/^/F/r; } @f ]; dd\@f;  "
["F1" .. "F4"]
[1 .. 4]