my $oct = 017;
my $dec = "017";
print $oct+0, $/, $dec+0; #plus zero forces it to be numeric

##</code><code>##

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