while (my $line = $Accts{$key}->getline){
...