infinite loop

Hi I would appreciate if someone could tell me why this prog is running into infinite loop.

#!/usr/local/bin/perl -w

use strict;
use warnings;
# Defining the family file.
my ($file_name) = 'families' ;

# Opening the file
open(file_handle, $file_name) or die "\n Unable to open families file";

# declaring a hash
my (%hash) = ();

# Reading a line from the file and creating a hash.
while (my $line = <file_handle>)  #start of while loop a
 {
     my (@temp) = split(" ", $line);
     $hash{$temp[0]} = "$temp[1]";
 } # end of while loop a

# Closing the file.
close($file_name);

# Opening the query file to pull out the query sequences.
my ($file_n) = 'query.fa';

open(han, $file_n) or die "unable to open query file";

# Declare an array to hold the query sequences.
my(@array);
my ($i) = 0;
while(my $line = <han>)  # start of while loop a
{
 if($line=~ /^>/)  # start of if loop a
  {
    my (@temp_arr ) = split (" ", $line);
    $array[$i]  =  $temp_arr[0] ;
    $array[$i]  =~ s/>//g;
    $i = $i + 1;
  } # end of if loop a
} # end of while loop a

# Defining the blosum matrices to act upon
#my (@mat) = (45, 62, 80);
my (@mat) = (45);
# Computing for each matrix.
foreach my $val (@mat)  # start of foreach loop a
 {
# To extract only the query to act upon.
    foreach my $query (@array) # start of foreach loop b
      {
# Opening the blosum file
        my $f_name = "blosum$val.test";
         open(file_han, $f_name) or die "\n Unable to open blosum$val.test file";
# Building an array out of the results of a query
         my(@result) = ();
         while (my $blos_res = <file_han>) # while loop a
          {
# Checking for the results of the corresponding query.
## goes into infinite loops somewhere over here
# Check works by looking for the occurance  of the query in the starting
# of the result.
                if($blos_res =~ /^$query/)
                {
                   push(@result, $blos_res);
                }
               foreach my $a (@result)
                {
                  print "\n $a";
                }
          } # end of while loop a
    } # end of foreach loop b
} # end of foreach loop a