my $next;  # defaults to "undef"

for my $unit ( sort { $b cmp $a } keys %available_data ) {
    for my $lesson ( sort { $b cmp $a } keys %{$available_data{$unit}} ) {
        $available_data{$unit}{$lesson} = $next;
        $next = "$unit $lesson";
    }
}