proc addname {first last} {
global name
incr name(ID)
set id $name(ID)
set name($id,first) $first
set name($id,last) $last
}

#Initialization
set name(ID) 0
addname Teja Konduri
addname Mark Zuckerberg
addname Steve Jobs
addname Kate Twinslet
addname Deepika Padukone
addname Katrina Kaif