use warnings;
     
@_ = (undef, 5, 8, undef);
     
print ( (sort {$b <=> $a} grep defined, 
                    @_)[ 0 ], " - was a max defined value\n" );