my ( $FH, $orderKey, $odVal, $osVal ) = map $_ || 0, @_[ 0 .. 3 ];