#/usr/bin/perl

use strict;

my @temp   = ()
my @array1 = ();
my @array2 = ();
my $i      = 0;
open(CVS, "bla.cvs")
while(<CVS>)
{
  @temp = split("-", $_);
  $array1[$i] = @temp[0];
  $array2[$i][0] = @temp[1];
  $array2[$i][1] = @temp[2];
  $array2[$i][2] = @temp[3];
  $i++;
}
close(CVS);
for($i=0;$i<$#array1;$i++)
{
  print $array1[$i]."\n";
}
for($i=0;$i<$#array2;$i++)
{
  print $array2[$i][0]." "print $array2[$i][1]." ".print $array2[$i][2]."\n";
}

#/usr/bin/perl

use strict;

my @fragen = ();
my @alle_antworten = ();

open(CVS, '<',"bla.cvs") or die $!;
while(<CVS>)
{
  my ($frage,@antworten) = split "-", $_ ;
  push @fragen, $frage;
  push @alle_antworten, \@antworten;
}