my prev_address=0;
for my $address (sort keys %data){
...