use strict;
use warnings;
use Data::Dumper;
my $line = "  0 10  9  4  1  0  0  0  2  2  1  1  0";
my @config = split " ", $line;
print Dumper \@config;