use List::Util qw/max/;
my $cmd = `lsload -I tmp2`;
my @arr = split("\n", $cmd );
shift @arr;
my @size;
foreach (@arr)
{
   my @row = split(" ", $_);  
   push @size, $row[-1];
}

my $maxsize = max @size ;