#!perl
use strict;
use warnings;

my @array = 1..99;

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

print $largest;