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