2nd submission perl/raindrops