Update: Oops, just saw that theorbtwo had already done this one.

#!perl
use strict;
use warnings;

my @array = 1..99;

my $largest = (sort @array)[-1];

print $largest;
[download]

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"