Simple perl script check module name = file name

#!/usr/bin/perl
open(LIST, './filelist') die "can't open list.txt $!";
while () {
$input = $_;
chop($input);
chop($input);
chop($input);
chomp($input);
@test = split(/\//);
$input1=$test[4];
chop($input1);
chop($input1);
chop($input1);
chomp;#system("echo $input1 ");system("echo \" $input1 : `grep \"module $input1\" ./$_wc -l` \" ");
}
close LIST;