use strict; use warnings FATAL => qw( all ); use Movies::LookUp qw(movies movie_is); my %movies = movie_hash(); for my $movie (sort keys %movies) { my $movie_is = movie_is($movie); print "

$movie $movie_is

\n"; }