$a = $b = ["abc",123];
print "\$a is $a\n";
$a =~ s/\D+//;
print "The decimal value of the address of the array  is ",hex($a);
print "\n";
print sqrt(hex($a)),"==", sqrt($b),"\n";