my @voblist = `cat /home/vobadmin/scripts/voblist.txt`;
foreach my $i (@voblist) {
    chomp($i);
    my $vob = "\/vobs\/$i";
    chomp($vob);
        print '[' . timestamp() . ']  Start Time'. "\n";
        print OUTFILE '[' . timestamp() . ']  Start Time'. "\n";
    print "VOB is:  $vob\n";
    chdir $vob;
    open($FH, "cleartool find . -all -print|")
    or die "Something went wrong\n";
    print STDERR "Loading Array with elements from $vob\n ";
    while (<$FH>) {
        push @element, $_;
        unless ($. % 10) { # every 10 lines
        print STDERR ".";
        }
    }
    print "\n";