$word="USA"; $lastChar=chop($word); print "lastChar=$lastChar, word=$word\n";
lastChar=A, word=US
@list=("USA", "CHINA", "JAPAN"); $lastChar=chop(@list); print "lastChar=$lastChar, list=", join(",", @list), "\n";
lastChar=N, list=US,CHIN,JAPA