%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];