>>470
my $num = 0;
map { ${$ref->{data}}[$_]{sortnum} = ++$num } (0..@{$ref->{data}}-1);

要するに $num をインクリメントしながら
sortnum に代入していけばいいだけっしょ。