PERL6

pugs> my ($car, @cdr) = (1..10);
pugs> say "my other $car is a {@cdr}";
my other 1 is a 2 3 4 5 6 7 8 9 10

http://google.com/codesearch?q=my%5Cs%2B%5C%24self%5Cs*%3D%5Cs*shift&btnG=Search&hl=en&lr= 11600
http://google.com/codesearch?hl=en&lr=&;q=my%5Cs*%5C%28%5C%24self%5C%29%5Cs*%3D%5Cs*%40_&btnG=Search 23500