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