Hi Nice elegant solution. but i guess this would work too

#!/usr/bin/perl -w

use strict;

my @array = ( 33, 56, 3, 2, 67, 101, 218, 4, 17 );

my @nums = sort { $b <=> $a } @array;


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