${ $pdl-> get_dataref } = $scalar_eg_5_Gb_long