#!/usr/bin/env perl
use strict;
use warnings;

my $file = 'data';
open my $info, $file or die "Could not open $file: $!";

my @list;

while( my $line = <$info>)  {
	chomp $line;
	if(! -e "images/$line.png") {
		print "Found missing: $line\n";	
	} 
	if ($line ~~ @list)
	{
		print "Found duplicate: $line\n"
	}
	push(@list, $line)
}

close $info;