use 5.20.0;

use Algorithm::Combinatorics qw( combinations );
use List::AllUtils qw/ sum min product /;

my $total;

say sum 
    map { 2 * ( $_->[0] + $_->[1] ), product @$_ } 
    map {[ sort { $a <=> $b } split 'x' ]} <>;