1st submission perl5/raindrops