use Movie; my $movies_hr = get_hash( ... ); for my $v ( values %$movies_hr ) { bless $v, 'Movie'; } for my $v ( values %$movies_hr ) { printf "

%s %s

\n", $v->title, $v->movie_is; }