#!/usr/bin/perl

use strict;
use Data::Dumper;

my %HoA;
my $count = 0;

while (<DATA>) {
    my @arrays = split;
    $HoA{$count} =[ @arrays ];
    $count++;
}

print Dumper(\%HoA);

__DATA__
1     2     3
a     p     x
b     q     y
c     r     z