use feature qw(say);
my $fh = *DATA;
my (@x, @y, @z, @W);          
my $line = <$fh>; 
while ( $line = <$fh> ) {    
  chomp $line;                             
  my ($x, $y, $z, $W) = split /\t/,$line;  
  
  # einzelne Daten in Arrays speichern
  push @x,$x//''; 
  push @y,$y//''; 
  push @z,$z//''; 
  push @W,$W//''; 
}

say $_ for (@x);
say $_ for (@y);
say $_ for (@z);
say $_ for (@W);


__DATA__
x	y	z	W
1	22	19	ABC
9	1	22	XYZ