(Since your question leads us off the Perl path anyway...) Smalltalk does, but with different syntax. For example, take the following Array of Strings:

| temp |
temp := #('one' 'two' 'three').
Transcript show: (temp at: 1).
[download]

The line Transcript show: (temp at: 1). will print the string "one".

My training was with C++/C, and on the new job, we get to use Smalltalk. So I've been having the opposite problem that you've been having. :-)