#!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";
}