my ($locked,undef,undef,undef,undef,$expire)=$ssh->get_user_info($loginid);

my ($locked,$expire) = ($ssh->get_user_info($loginid))[0,5];


##</code><code>##

my ($min,$max) = (sort @something)[0,-1];