my @odds = map {$_ % 2 ? do {print $_ * $_; $_} : ()} 1 .. 10;