2015/03.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 += 3*$dims[0]*$dims[1] + 2* $dims[0]*$dims[2] + 2* $dims[1]*$dims[2];
  11 }
  12
  13 say $sum;
  14
  15