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