#!/usr/bin/perl

# Initialize @fun2text, a normal array.
# (Use $fun2text[$function] to find the text.)

@fun2text = (
    "Update",
    "Acknowledgement",
    "Lightning",
    "Sabeans",
    "Chaldeans",
    "Page Servant",
);

# Initialize %text2fun, an associative array, by inversion.
# (Use $text2fun{$text} to find the function code.)

$index = 0;
foreach $text (@fun2text) { $text2fun{$text} = $index++; }
