use mapcar;
my @AoA= mapcar{[@_]}map{[split]}<DATA>;