Your problem is getting a count of 7 when there are only 5 files, so try moving $number++ AFTER you check to see if the entry is '.' or '..'. Since you're counting BEFORE you get to that logic, you get 7, not 5. If you want to count only the '*.lip' files, move it to after that check.

opendir( DIR, $directory ) or die "open dir error";
my $number = 0;
while(defined($name = readdir (DIR)))
{
        if($name eq "")
        {
                print "Value -$name* is null string."
        }
        print "Loop $number-->$name**\n";
        next if $name eq "." || $name eq "..";
        $number++;  
        next unless $name =~ /(.*)\.lip$/;
        push @names, $name;
}
[download]

Thanks oha for the clean version of the code.