What also works is

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