sick of perl

im old as fuck and ive been using perl for way too long. since perl effectively has no future, which scripting language should I learn to stay modern? I've dabbled in python and haskell a little bit but i don't like FIOC and non c-style syntax. i've also written some ruby in the past and i find it slow and shitty. what do?

ruby

Symta:

furry Name Clothes = Pose:\stand = o
  undress:<= does “wears ${dressed?,c,n = \nothing}
                          ;√ = does “is undressing...” = sleep 10
                             = ~@!Clothes,0 |v \nothing}”>
  clothes:<= Clothes,0>
  dressed?:<= Clothes,xs?>
  …

Ruby (http://pastebin.com/6ggfWPhB):

class Furry
 
  def initialize name, clothes = []
    @name = name
    @clothes = clothes
    @pose = :stand
  end
 
  def undress
    if not self.dressed?
      then self.does "wears nothing"
      return
    end
    self.does "is undressing..."
    sleep 10
    @clothes.shift if dressed?
    if self.dressed? then self.does "wears #{clothes}"
    else self.does "wears nothing"; end
  end
  def clothes
    @clothes.first
  end
 
  def dressed?
    not @clothes.empty?
  end
  …