1.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my @nums = sort { $a <=> $b } <>;
   6 chomp @nums;
   7
   8 while (@nums > 1) {
   9         print "Nums: ", join(' ', @nums), "\n";
  10         my $cmp = $nums[0] + $nums[-1] <=> 2020;
  11         if ($cmp < 0) {
  12                 shift @nums;
  13         } elsif ($cmp == 0) {
  14                 print "$nums[0]*$nums[-1]=", $nums[0]*$nums[-1], "\n";
  15                 last;
  16         } else {
  17                 pop @nums;
  18         }
  19 }
  20