#!/usr/bin/perl
use warnings;
use strict;

#create a hash where each key is matched with an anonymous array reference

my %chores = (
        Monday => ["dishes","1"],
        Tuesday =>  ["vacuum","2"],
        Wednesday => ["garbage","3"]);

#get the reference to the list stored in the key Wednesday

my $valuereference = $chores{Wednesday};

#make value the list that valuereference is referring to

my @value = @{$valuereference};

#print each element of the list @value, followed by a newline

print $_."\n" for @value;