print "The address is $scalar[0].$scalar[1].$scalar[2].$scalar[3]\n";