#!/usr/bin/perl -w
use strict;

my @array = ( 33, 56, 3, 2, 67, 101, 218, 4, 17 );
my @nums = sort { $a <=> $b } @array;

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

##</code><code>##

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