print "Dialing $index of $total on $ref->{datetime}: $ref->{host}, $ref->{phone}, $ref->{description}\n";