123

sub Slot
{
    my %slots = (0 => "Charm",
    1 => "Left Earring",
    2 => "Helmet",
    3 => "Face",
    4 => "Right Earring",
    5 => "Neck",
    6 => "Shoulders",
    7 => "Arms",
    8 => "Back",
    9 => "Left Wrist",
    10 => "Right Wrist",
    11 => "Range",
    12 => "Hands",
    13 => "Primary",
    14 => "Secondary",
    15 => "Left Finger",
    16 => "Right Finger",
    17 => "Chest",
    18 => "Legs",
    19 => "Feet",
    20 => "Waist",
    21 => "Ammo",
    9999 => "Powersource");
    my $slot = $_[0];
    return "$slots{$slot}";
}