# GROUP_29_2022510088_2022510126.pl
my @p1 = (17,163,72,41,114,40.9,0.817,47);
my @p2 = (0,114,80,34,285,44.2,0.167,27);
my $sum_sq = 0;

for (my $i = 0; $i < 8; $i++) {
    $sum_sq += ($p1[$i] - $p2[$i]) ** 2;
}

my $distance = sqrt($sum_sq);
print "Euclidean Distance: $distance\n";