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

print "here I start \n";
do "Datei_mit_Subroutine.pl";

my %hash = %{dateilesen()};

print "here is the return value of dateilesen:\n";

foreach my $key (sort {$hash{$a}->[0] <=> $hash{$b}->[0]} keys(%hash) )
{
  print "$key: ";
  print join(' ', @{$hash{$key}});
  print "\n";
}