use strict;
use Data::Dumper;

while (my $line = <FILE>)
{
   chomp ($line);
   #$line =~ s/^\s*//;
   my @array = split(/\s+/,$line,16);   
   print Dumper \@array;
}