#!/usr/bin/perl -w
use strict;

#Ok, here is an idea for you...

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

print "@{$scores{Wednesday}}\n";
__END__
Prints:
garbage 3