[- @ks = sort keys %fdat -]

[+ $ks[$row] +]

Length=[+ length ($fdat{$ks[$row] || ''}) +]

[+ $fdat{$ks[$row] || ''} +]