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

>>11
It looks like shit
It's still Perl
And Perl 6 is not getting released before Duke Nukem Forever
But at least it's better than a 15 years old C faggot writing his OMG OPTIMIZED library for games using inline assembly and low-level API calls he'll never finish.