I have mentioned in the post itself that i am using the Spreadsheet::ParseExcel module.
If you insist on having a look at the code: (This is jus a part of the entire code and works on just . I need to integrate multiple modules similar to the one below)

sub push_button2 {
  my $filename = $mw->getOpenFile( -title => 'Open File:',
    -defaultextension => '.xslx', -initialdir => '.' );
    warn "Opened $filename\n";
    open(MYFILE,$filename);
    
     # Text::Iconv is not really required.
 # This can be any object with the convert method. Or nothing.

 use Spreadsheet::ParseExcel;

    my $parser   = Spreadsheet::ParseExcel->new();
    my $workbook = $parser->parse($filename);
 
 
    if ( !defined $workbook ) {
        die $parser->error(), ".\n";
    }


 $txt -> delete('1.0', 'end');
    for my $worksheet ( $workbook->worksheets(0) ) {

        my ( $row_min, $row_max ) = $worksheet->row_range();
        my ( $col_min, $col_max ) = $worksheet->col_range();

        for my $row ( $row_min .. $row_max )
         {
            for my $col(8) 
            {
                my $cell = $worksheet->get_cell( $row, $col );
                next unless $cell;
                
            if($worksheet->{Cells}[$row][8]->{Val} > 2)
            {    
                     
                
                if($worksheet->{Cells}[$row][21]->{Val} >75)
                 {
                    $txt -> insert('end', " $worksheet->{Cells}[$row][
+1]->{Val}\n");
                $txt -> insert('end', "\n REASON:     Other\n");
                $txt -> insert('end', " DIAGNOSIS:     Check the fault
+ definition\n\n");
                                
                }
              elsif($worksheet->{Cells}[$row][13]->{Val} > 50)
                 {
                    $txt -> insert('end', " $worksheet->{Cells}[$row][
+1]->{Val}\n");
                $txt -> insert('end', " \nREASON:     Low Signal Stren
+gth\n");
                $txt -> insert('end', " DIAGNOSIS:     Check the fault
+ definition for troubleshooting\n\n");
                                
                }
                elsif($worksheet->{Cells}[$row][16]->{Val} >50)
                 {
                    $txt -> insert('end', " $worksheet->{Cells}[$row][
+1]->{Val}\n");
                $txt -> insert('end', " \nREASON:     Bad Quality Upli
+nk/Downlink\n");
                $txt -> insert('end', " DIAGNOSIS:     Check the fault
+ definition for troubleshooting\n\n");
                                
                }
       
       
           }
        
        else
        {next;}
        }
    }
close(MYFILE);
}






}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.