if ($line[0] =~ /STAT/) {
      my $name = $line[5];
      print "name = >$name<\n";
      my $status = $line[4];

##</code><code>##

   my @line = split (/,/,$line);

##</code><code>##

   my @line = split (/\s*,\s*/,$line);

##</code><code>##

use strict;
use warnings;

##</code><code>##

chomp (my @lines = <FILE>);
my %table;
foreach my $line (@lines) {
   ...