#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=1192943
use warnings;

# If it's really true that all the files you are interested in
# have the same root with three digit extensions,
# then all that is needed is:

my $highest = (<file.???>)[-1];
print "File with Highest Extension => $highest\n";
[download]