for $key (sort keys %movies) {
    print "$key:\n";
    print "  Year: $movies{$key}->{year}\n";
    print "  Stars: ", join(', ', @{ $movies{$key}->{stars} }), "\n";
    print "  Director: $movies{$key}->{director}\n\n";
}
------------------Prints--------------
Gone with the Wind:
  Year: 1939
  Stars: Clark Gable, Vivien Leigh
  Director: George Cukor

Wizard of Oz, The:
  Year: 1939
  Stars: Judy Garland, Billie Burke
  Director: Victor Fleming