challenge-100/deadmarshal/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw(min);
use feature 'say';
use JSON::PP qw(decode_json);

die "No argument provided. " unless @ARGV == 1;

my $arrayref = decode_json shift;
my $sum;

foreach my $item (@$arrayref){
  $sum += min @$item;
}

say $sum;