2:  Add simple solution in Perl