better perl foo