#!/usr/bin/perl use warnings; use strict; my (@list_of_hashes, %hash_of_lists, %mixed_bag, $my_object); my @my_list = (1,2,3,4,5); @list_of_hashes = ( { Monday=>1, Tuesday=>2, Wednesday=>3, Thursday=>4, Friday=>5 }, { Red=>0xff0000, Green=>0x00ff00, Blue=>0x0000ff }, ); print "$list_of_hashes[0]{Tuesday}.", "\n";