- Tidied up Perl solution.

1 files changed, 2 insertions, 6 deletions

diff --git a/challenge-060/mohammad-anwar/perl/ch-2.pl b/challenge-060/mohammad-anwar/perl/ch-2.pl
index 562bcca909..0df0431f0a 100644
--- a/challenge-060/mohammad-anwar/perl/ch-2.pl
+++ b/challenge-060/mohammad-anwar/perl/ch-2.pl
@@ -5,18 +5,14 @@ use warnings;
 
 use Algorithm::Combinatorics qw(variations_with_repetition);
 
-my @n = (0, 1, 2, 5);
-my $x = 2;
-my $y = 21;
-
-my @numbers = find_numbers(\@n, $x, $y);
+my @numbers = find_numbers([0, 1, 2, 5], 2, 21);
 print join(", ", @numbers), "\n";
 
 sub find_numbers {
     my ($n, $x, $y) = @_;
 
     my @numbers = ();
-    foreach my $number (variations_with_repetition(\@n, $x)) {
+    foreach my $number (variations_with_repetition($n, $x)) {
         $number = join("", @$number) + 0;
         next unless ((length($number) == $x) && ($number < $y));
         push @numbers, $number;