my $columns   = 5;

open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>) {  # alles was unten in __DATA__ steht symbolisiert eine Datei
  chomp $line;
  my @array = (split(/[\t\s\\]/,$line))[0..($columns-1)];