Select Code to Download

$data->{ criteria }->{ $record } += 1;

@sorted = sort $data->{ $a } cmp $data->{ $b } keys %{ $data };

$pointer = $data->{ criteria }->{ $record };
undef $lookup->{ ( $counter - 1 } . '-' . $pointer } if( $counter > 1 
+);
$lookup->{ $counter . '-' . $pointer } = $pointer;

foreach my $key ( sort( keys( %{ $lookup } ) ) ) {
 print data->{ $lookup->{ $key } };
}

my $data;
...
]->[ $j ] );
 }
}