my @max = (0,0,0,0,0);
foreach (@files) {
  my @actual = split(\./, $_);
  for my $i (0..$#actual) {
    @max = @actual, last if $actual[$i] > $max[$i];
  } # for
} # foreach
print "Max: ", join(".", @max), "\n";