Map function in perl

@s=qw( sam bam cam jam );
map { $_ = "$_.so" } (@s);
foreach $i (@s)
{
print $i."\n";
}