Wait, you couldn't stand the weirdness of perl, but you like Tcl?
All I can remember about Tcl from my months of using it is the ugly, ugly loops:
for {set i 1} { $i <= 100 } { incr i } {
puts "Well, that wasn't ugly syntax!"
}
Incidentally, Fortran, for all its other ugliness, has the best for loop I know: do i = 1, 100
write(*,*) "Hooray, Fortran!"
enddo