open (FILE, ">>$filename") or die "trying";

##</code><code>##

print FILE "$movie\n";

##</code><code>##

push @movies, "$line"; # bad habit to get into
push @movies, $line;   # much better, what if $line was a reference?