my @dada=my_read($fh,",");
# oder
my @dada=my_read(*HANDLE);
sub my_read($$)
{
  my $fh=shift(@_);
  local $/=shift(@_);
  my @ret=();
  push(@ret,$line)  while(my $line=<$fh>);
  return(@ret);
}