use strict;
use warnings;
#use Data::Dumper;
#use MyTime;

    my $href={};
    #my $timeinf=MyTime->new();
    #$timeinf->push('before open');
    open(my $fh, "<", "04.txt") or die $!; 
    while(<$fh>){
        chomp;
        push @{ $href->{ substr($_,0,10)} }, [ substr($_,10,10), substr($_,20)];
    }
    close $fh;
    #$timeinf->push('after load');
    #print $timeinf->as_string;

    print "count=", scalar keys %{$href} ,"\n";
    #print "test item:" , Dumper $href->{'01785341-a'} , "\n\n";