Looks like you need to create a hash of arrays structure:

my %switches = (
    -l => ["load1", "load2", "load3", "load4"],
    -d => ["disk1", "disk2", "disk3"]
);

# add more switches
$switches{-m} = ["memory1", "memory2"];

# what's the options for a switch
print "-d options are ", join("," => @{$switches{-d}});
[download]