Challenge 5:  Perl spark