use warnings;
use strict;

my @first_list;
my @second_list;
my @first_list_new;
my @second_list_new;

open FIRST_LIST, "< first_list.txt" or print $! "\n";
@first_list=<FIRST_LIST>;
close (FIRST_LIST);
chomp (@first_list);

open SECOND_LIST, "< second_list.txt" or print $! "\n";
@second_list=<SECOND_LIST>;
close (SECOND_LIST);
chomp (@second_list);

foreach my $machine (@first_list)
{
	my $machine_new=lc($machine);
	push(@first_list_new,$machine_new);
}

foreach my $machine (@second_list)
{
	my $machine_new=lc($machine);
	push(@second_list_new,$machine_new);
}
	
print "Machines extra in second list\n\n";
foreach my $unique (@second_list_new)
{
	if (grep (/^$unique$/,@first_list_new))
	{
		print "already there $unique\n\n";
	}
	else
	{
		print "newly in this $unique\n\n";
	}
}