use strict;
use warnings;
use List::Util qw(max);

my @list = qw(1 99 33 2 1024 13);
print max(@list) . "\n"