Hello ameezys,

We do not have sample of your data so I can see if it is a complex structure or a simple array. In case that is a simple array you can use (List::Util):

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use List::Util qw( min max );

my @num = qw(1 2 3 4 5);
my $max = max @num;

say "Max: ".$max;

__END__

perl test.pl
Max: 5
[download]

If you want to get also the minimum you can use (List::MoreUtils) as it is more efficient when you want to retrieve both values:

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use List::MoreUtils qw( minmax );

my @num = qw(1 2 3 4 5);
my ($min, $max) = minmax @num;

say "Min: ".$min;
say "Max: ".$max;

__END__

perl test.pl
Min: 1
Max: 5
[download]

Hope this helps, BR