use strict;
use warnings;

#!usr/bin/perl

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: ";
foreach my $val (@{$hash{$key}}) {
        print "$val ";
    }
print "\n";
}