open (INFILE_link,"<$fh") or die $!;

##</code><code>##

open my $INFILE_link, '<', $fh or die "Could not open '$fh' because: $!";

##</code><code>##

while (my $line = <INFILE_link>) {
    chomp $line;
    my @line_array = split(/\s+/, $line);
    push (@file_array, \@line_array);
}

##</code><code>##

while ( <$INFILE_link> ) {
    push @file_array, [ split ];
}

##</code><code>##

while ( my $line = <$INFILE_link> ) {
    push @file_array, [ split ' ', $line ];
}

##</code><code>##

   my ($i, $a, $b, $c, $d, $x, $w, $y, $z, $ta, $tb, $tc, $td);
         
       $a= $b= $c= $d= $x= $w= $y= $z= $ta = $tb =$tc =$td= 0;

##</code><code>##

   my ( $i, $a, $b, $c, $d, $x, $w, $y, $z, $ta, $tb, $tc, $td ) = ( 0 ) x 13;

##</code><code>##

   $_ = 0 for my ( $i, $a, $b, $c, $d, $x, $w, $y, $z, $ta, $tb, $tc, $td );