foreach my $i (sort keys %update)
{
    ...
    foreach my $j (sort keys %{$update{$i}})
    {
        foreach my $k (sort keys %{$update{$i}{$j}})
        {
            ...
        }
    }
}