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;
}