open (saved_system, "saved_system.txt");
open (current_system, "current_system.txt");
open (deleted_archeive, ">>deleted.txt");

while ($saved_system = <saved_system>) {  
chomp;
while ($current_system = <current_system>){ 
chomp;
if ($saved_system eq $current_system) { print "     Files are equal\n";}
elsif ($saved_system ne $current_system) {print "     Files are not equal\n";}
}
}