get_highest_vers(\@vers);

sub get_highest_vers {
  my $vers_index;
  my @sorted_vers;

  my @locvers = @_;

  $#sorted_vers = -1;

  if ($#locvers == -1) {
    $highest_vers = 0.00;
  } else {
    for ($vers_index = 0; $vers_index <= $#locvers; $vers_index++) {
      $locvers[$vers_index] =~ s/\.\/v//;
      $locvers[$vers_index] += 0;
    }
    # Sort the archive version numbers and grab the highest one
    @sorted_vers     = sort {$b <=> $a}  @locvers;
    $highest_vers    = shift(@sorted_vers);
  }
    ($major, $minor) = split(/\./, $highest_vers);
}