open DATABASE, $mydata or die "Can't open $mydata: $!\n";
flock DATABASE, LOCK_EX or die "Can't lock $mydata: $!\n";
my @list = <DATABASE>;
close DATABASE; # which also unlocks it

@list = sort { substr($a, 0, 8) cmp substr($b, 0, 8) } @list;