in reply to How to compare array with module

The pseudo code you posted gives me the impression that you just whipped it up to have something to post, so we don't complain, and otherwise do the work (and the thinking) for you. 
open ipfile1 Input1 or die"File not found $!\n";

[download]
gives 
Can't locate object method "ipfile1" via package "Input1"

[download]
see open. 
if(ipfile1 == ipfile2){

[download]

not reading the files, but comparing filehandles numerically? You should already have learned by this thread how to open and read files properly.

Get a clue.

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

In Section Seekers of Perl Wisdom