while(my @line=read_line_von_irgendwo)
{
  my $zeilendaten=join(',',@zeile);
  push(@liste,$zeilendaten);
}