2015/04.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4 use strict;
   5
   6 my $sum;
   7 while (<>) {
   8         chomp;
   9         my @dims = sort { $a <=> $b } split /x/;
  10         $sum += 2*$dims[0] + 2*$dims[1] + $dims[0]*$dims[1]*$dims[2];
  11 }
  12
  13 say $sum;
  14
  15