14 lines
330 B
Perl
14 lines
330 B
Perl
|
%mixed_bag = (
|
||
|
|
Scalar1 => 3,
|
||
|
|
Scalar2 => "A",
|
||
|
|
List1 => [1, 2, 3],
|
||
|
|
Hash1 => { A => 'a', C => 'c' },
|
||
|
|
List2 => ['A','B', ['C','D'], 'E', 'F'],
|
||
|
|
Scalar3 => $my_object,
|
||
|
|
Hash2 => { Time => [ gmtime ],Date => scalar(gmtime),
|
||
|
|
},
|
||
|
|
List3 => @my_list[0..2],
|
||
|
|
);
|
||
|
|
|
||
|
|
print $mixed_bag{List2}[2][1];
|