sub separate_data {
    my $array = shift;
    $array = [ split / /, $data[$a] ];
}

my (@array1, @array2, @array3);
seperate_data(\@array1);
seperate_data(\@array2);
seperate_data(\@array3);