list of lists

Creating list of lists.

Hi All,

Could you help me to come up with idea how to generate list of lists on fly as follows:

@LoL = ( ["state", "value", "value"], ["state", "value", "value"], ["state", "value", "value"], );

State should be taken from hash %states where the state is a key.

Value should be taken from function.

I'm a perl beginner. This task looks very complicated to me :-(

I'll appreciate any help.

Thanks in advance,