Thank you Very much for your reply and time. apologies for not posting it using the correct tags. i have moved the subrotine to the top of the program and declared all variables with my. but still have the same issue.

i am sorry if i am wrong about crash. the reason, i said perl crashed was because i got a message window

"Perl command line interpreter has stopped working" 

close the program or check online for solution and close the program. 

i copied the porgram details from the window. please see below.
[download]

Problem signature:
  Problem Event Name:    APPCRASH
  Application Name:    perl.exe
  Application Version:    5.10.0.1005
  Application Timestamp:    4a199d7b
  Fault Module Name:    perl510.dll
  Fault Module Version:    5.10.0.1005
  Fault Module Timestamp:    4a199d7a
  Exception Code:    c0000005
  Exception Offset:    0009b108
  OS Version:    6.1.7601.2.1.0.256.4
  Locale ID:    1033
  Additional Information 1:    0a9e
  Additional Information 2:    0a9e372d3b4ad19135b953a78882e789
  Additional Information 3:    0a9e
  Additional Information 4:    0a9e372d3b4ad19135b953a78882e789

Read our privacy statement online:
  http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0409

If the online privacy statement is not available, please read our priv
+acy statement offline:
  C:\WINDOWS\system32\en-US\erofflps.txt
[download]

following is the output

perl TimeZoneCheck.pl
Starting main program

0        server1

1        server2
Host server1 is alive
Host server2 is alive

server2   India Standard Time     (GMT+05:30) Chennai, Kolkata, Mumbai
+, New Delhi         (GMT+05:30) Chennai, Kolkata, Mumbai, New Delhi
Free to wrong pool 49cc3c8 not f3ea8, <FILE> line 5 during global dest
+ruction.
[download]

modified Code

use strict; 
use warnings;
use threads;
use threads::shared;
use Net::Ping;
use Switch;
use Net::DNS;
#use Try::Tiny;
#use DBI;
use Win32::OLE qw(in with);


use Carp;

use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

$Win32::OLE::Warn = 3;


sub GetTimeZone {     
         my $paramsub = shift;   
         my @subparam = split(/:/, $paramsub); 
         my $subrow = $subparam[0];
         my $subhost = $subparam[1];
         $subhost =~ s/^\s+//m;
        $subhost =~ s/\s+$//m;
         # Create a new ping object
        my $pingit = Net::Ping->new("icmp");
        my $timeout = 10;
         
       print "\n$subrow \t $subhost \n";
       
    my $user="domain\\username";
    my $pwd="password";
    my $locatorObj =Win32::OLE->new("WbemScripting.SWbemLocator") or d
+ie "ERROR CREATING OBJ";      
    $locatorObj->{Security_}->{impersonationlevel} = 3;
    
    #return ($subrow, $subhost);
       
    
    # perform the ping
    if( $pingit->ping($subhost, $timeout) )
      {
      print "Host ".$subhost." is alive\n";
          eval {          
              my $objWMIService = $locatorObj->ConnectServer($subhost,
+ "root\\cimv2", $user, $pwd);
          
            if (Win32::OLE->LastError()) {
                #$sheet->Cells($row,5)->{'Value'} = "$_\n";
            print "$_\n";
            Win32::OLE->LastError(0);  # this clears your error
            }
            else
            {
                    my $colItems = $objWMIService->ExecQuery 
                    ("Select * from Win32_Timezone","WQL",wbemFlagRetu
+rnImmediately | wbemFlagForwardOnly); 
                if (Win32::GetLastError()) {
                    #$sheet->Cells($row,5)->{'Value'} = "$_\n";
                print "$subhost : $_\n";
                Win32::OLE->LastError(0);  # this clears your error
                }
                else{
                    foreach my $objItem (in $colItems) 
                        { 
                            print "\n$subhost \t $objItem->{StandardNa
+me} \t $objItem->{Caption} \t $objItem->{Description} \n";
                            #$timezonename = $objItem->{StandardName};
                            #$timezonecaption =$objItem->{Caption};
                            #$timezonedescription = $objItem->{Descrip
+tion};      
                            ##objOS.CurrentTimeZone/60 & ":" & right("
+00" & objOS.CurrentTimeZone mod 60, 2)
                        } 
                    }
               }                   
             };
               if ($@) {
                print "Warning: Error querying object $subhost: $@\n";
              #$sheet->Cells($row,5)->{'Value'} = "$@";
                #$row++;
                next;
              }
        }
    else
      {
      print "Warning: ".$subhost." appears to be down or icmp packets 
+are blocked by their server\n";
        #$sheet->Cells($row,5)->{'Value'} = "Warning: ".$netbiosname[0
+]." Down";
      } 
      $pingit->close();
}


print "Starting main program\n";

open FILE, "c:\\serverping.txt" or die "could not open the file";
my @lines = <FILE>;
my $linecount = scalar @lines;

my $row = 0;
my $line =$lines[$row];
$line =~ s/^\s+//m;
$line =~ s/\s+$//m;

my $mainparam = $row.':'.$lines[$row];
my $thr0  = threads->new(\&GetTimeZone, $mainparam);
$row++;

$mainparam = $row.':'.$lines[$row];
my $thr1  = threads->new(\&GetTimeZone, $mainparam);
$row++;

while(1){
    if ($thr0->is_joinable()) {
      $thr0->join;    
      if ($row<$linecount){
            $mainparam = $row.':'.$lines[$row];
                $thr0  = threads->new(\&GetTimeZone, $mainparam);
                $row++;
        }
    }
    if ($thr1->is_joinable()) {
      $thr1->join;
      if ($row<$linecount){
          $mainparam = $row.':'.$lines[$row];
            $thr1  = threads->new(\&GetTimeZone, $mainparam);
            $row++;
        }
    }
    my $thread_count = threads->list();        
    #print "$thread_count \n";
    last if ($row==$linecount && $thread_count == 0);    
}

print "End of main program\n";

close FILE;
[download]