refine comments

1 files changed, 3 insertions, 3 deletions

diff --git a/challenge-060/jo-37/perl/ch-2.pl b/challenge-060/jo-37/perl/ch-2.pl
index 86172c303f..a2c05683b8 100755
--- a/challenge-060/jo-37/perl/ch-2.pl
+++ b/challenge-060/jo-37/perl/ch-2.pl
@@ -6,8 +6,8 @@
 # - from the parts in @L.
 # See below.
 #
-# Performs recursive "branch and cut".
-# Though data is numeric, processing is strictly string based.
+# Though data has been described as numeric, processing is
+# strictly string based. (Example provided.)
 
 use Test2::V0;
 use Data::Dumper;
@@ -73,7 +73,7 @@ sub gen_num {
 
 # Create numbers of given length, below given limit
 # and assembled from given parts.
-# Parts are not restricted to single digits.
+# Parts are not restricted to single digits (nor to numeric data).
 sub create_numbers {
 	my $length = shift;
 	my $limit = shift;