Select Code to Download

while (my @info = $sql_act_tran_ledg->fetchrow_array()) {
...
    $last_location = $location;
}

 
for my $location ( sort keys %activity_tran_ledg ) {
    for my $index (sort keys %{$activity_tran_ledg->{ $location }} ) {
...
        }
    }
}