From c35fc95c58039f21a44b0d16f590cdee37e939e6 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Fri, 16 May 2025 16:50:06 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 8754760..0c6c387 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -52,17 +52,15 @@ sub Triple::main {
     my ($sitename, $version) = init();
     my $request = FCGI::Request();
 
-    my @t1 = (
-        [ "Post", 1 ],
-        [ "Sneed", 2 ],
-        );
-    my @t2 = (
-        [ "based", 3 ],
-        [ "retard", 4 ],
-        );
     my @threads = (
-        \@t1,
-        \@t2,
+        (
+         [ "Post", 1 ],
+         [ "Sneed", 2 ],
+        ),
+        (
+         [ "based", 3 ],
+         [ "retard", 4 ],
+        ),
         );
 
     our $vars = {
-- 
2.39.5