#!usr/bin/perl
use strict;
use warnings;


sub dateilesen
{
  my %hash;
  $hash{a}=[0,'TEST1'];
  $hash{b}=[1,'TEST2'];
  $hash{c}=[2,'TEST3'];
  $hash{d}=[3,'TEST4'];
  return \%hash;
}