Shell Programming and Scripting

my ($ref) = shift;
 my $id;
 my $cnt=0;
 my $first =0;
my $filename ;
my $filename1  ;   
     FOREACH:foreach my $r (qw(RET LSH PDM )) {
      $ref->{$cnt}->{num_errors} =0;
  $ref->{$cnt}->{num_warnings} =0;
 
        if($first==0){
   $filename = "$PASS_DIR/$r.rpt"; 
          $filename1 = "$PASS_DIR/${r}_su.rpt";
    $ref->{$cnt}->{is_raw} =1; 
 }else{
   $filename = "$PASS_DIR/$r.rpt";
   $filename1 = "$PASS_DIR/${r}_su.rpt"; 
    $ref->{$cnt}->{is_raw} =0;
 
 }
    $ref->{$cnt}->{type}= $r;
  if(!-e $filename1){
   $ref->{$cnt}->{sumf}= '';
  }else{
   $ref->{$cnt}->{sumf}= $filename1;  
   }
   
    if(-e $filename){  
   my $start = 0;
               while ( my $line = <IN> ) {
  if ( $line =~ m/\s*(${r}.*)\:/ ) {
                    $id    = $1;
                    $start = 1;
                }
  if (( $start == 1 ) and ( $line =~m/\s*Sev\s*\:\s*(\w+)\s+\w+\s*\:\s*(\d+)\s*$/ )){
#                  $ref->{$1}->{ ${id} } = $2;
                 if ($1 eq 'Er'){
    $ref->{$cnt}->{num_errors} += $2 ;
   }elsif($1 eq 'War'){
    $ref->{$cnt}->{num_warnings} += $2 ;
   }
                   $start = 0;
                }
     }
     close IN;
     
}