Problem 20

Ruby

1puts ((1..100).reduce(:*)).to_s.split('').map(&:to_i).reduce(:+)

Perl 6

1[+] ([*] (1..100)).split("")