my $samlattr = $responsetextall[$i][$j]{attributeStatements};
                                           foreach my $result (@{ $samlattr } ) {
                                        #print "$result->{type}\n";
                                        foreach my $var (@{ $samlattr{$result} } ) {
                                        print "$var->{type}\n";
                               
                                $worksheet->write($r, 14,($var->{values}) );