Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @nums = sort { $a <=> $b } @array;

print "The largest number is: $nums[$#nums]\n";

C:\>perl pg8.pl
The largest number is: 218