Select Code to Download

$data->{numref} = \$data->{nums}->[0];

$VAR1 = {
          'nums' => [
...
                     ...],
          'numref' => \'-=-=ONE=-=-',
          ...

'nums' => ['-=-=ONE=-=-', ...
'numref' => \'-=-=-=ONE=-=-=-', ...