#! /usr/bin/perl
use strict;
use warnings;
use 5.010;

my @arr;

# lese Daten zeilenweise aus DATA Sektion unten
while ( <DATA> ) { # oder auch mit foreach()
    # fuer jede Zeile wird @arr nun neu gefuellt, bzw. ueberschrieben 
    @arr = split m/\s+/, $_ ;
}

# Kontrolle
say "what is in \@arr: @arr";


__DATA__
a a a
b b b
c c c
d d d