#/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;
}