use strict;
use warnings; 
use 5.010;

my (@x, @y, @z, @W);          # Arrays für Daten
my $file_name = 'test.dat';   # Dateiname der Datendatei

# Datei öffnen
open my $fh, '<', $filename or die "Datei $file_name: $!";

# erste Zeile wegwerfen, da Header
my $line = <$fh>; 

# weitere Zeilen einlesen
while ( $line = <$fh> ) {    
  chomp $line;                             # unwichtiges Zeilenende entfernen
  
  my ($x, $y, $z, $W) = split /\t/,$line;  # In einzelne Daten aufsplitten
  
  # einzelne Daten in Arrays speichern
  push @x,$x//''; 
  push @y,$y//''; 
  push @z,$z//''; 
  push @W,$W//''; 
}

# Datei schließen
close $fh;