#!/usr/bin/perl -l

use strict;
use warnings;

my @in=(1,2,3);
  
my @out1=map {s/^/F/; $_} @in;
print "@out1";

my @out2=map {s/^/F/; $_} 1,2,3;
print "@out2";

__END__