use strict;
use warnings;
use Data::Dumper;

my @arr = <DATA>;
chomp @arr;
my (@Arry1,@Arry2);
foreach(@arr)
{
        my @arr1 = split(/\s+/,$_);
        push (@Arry1,[@arr1[3..4]]);
        push (@Arry2,[@arr1[5..6]]);
}

print Dumper \@Arry1;
print Dumper \@Arry2;

__DATA__
AX8     0.23    42.4    1       1       1       1
AX4     0.65    53.6    0.2     7.8     9.1     2.3
AX12    0.34    23.9    3.2     7.2     1.2     9.3