while (<FILE>) {
                my $reading = 0;
        
        
        $reading++ if $reading;
        if(/.* ss:Name=\"$file*/oi){
                        # When we see <Appxxx> start storing the data
             print "VALUE IS $value \n";
                $reading = 1;
                        }
        
        $reading = 0 if (/<Row AutoFitHeight=\"0\">/);
        next unless $reading; 
        print "$_";
}