use List::Util 'max'; my @scores = ; my $high_score = max(@scores);