use MyDVDs;

# You'd probably load this directly from some source, creating anonymous
# objects and sticking them in an array, but I have to go to a meeting soon...

# Notice how easy it is simple it is to add data.
my $movie1 = MyDVDs->new;
$movie1->title('Gone with the Wind');
$movie1->year(1939);
$movie1->stars('Clark Gable', 'Vivien Leigh');
$movie1->director('George Cukor');

my $movie2 = MyDVDs->new;
$movie2->title('Wizard of Oz');
$movie2->year(1939);
$movie2->stars('Judy Garland', 'Billie Burke');
$movie2->director('Victor Fleming');

push @list, $movie1, $movie2;

# And how is this for simplicity of accessing the data?
for $movie (@list) {
    print       $movie->title, ":\n",
          "  ", $movie->year, "\n",
          "  ", $movie->stars, "\n",
          "  ", $movie->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