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