Select Code to Download

use warnings;
use strict;
...
my @strs = map Tmp->c($_), qw[foo bar baz];
my @str_lengths = map { length } @strs;
print "$_\n" for @str_lengths;