One change I'd make to that, is to use while each instead of for if there is any chance that this list can grow to any substantial size.

while( my( $account, $name ) = each %names ) {
    print "Account: $account Name:  $name\n"
}
[download]