$ref = $available_data{$unit}{$lesson};
print "Unit: $unit, lesson: $lesson -> Unit: ", $ref->{unit}, ' lesson: ', $ref->{lesson};