package Love; $asami = 'Love'; print "I $asami " . (keys%Love::)[0];