package Day;

sub new {
  my ($class,$dayname) = @_;
  my $self = { 
      day => $dayname
  };
  return bless $self, $class;
}

##</code><code>##

my @days = map { Day->new($_) } qw(Sun Mon Tue Wed Thur Fri Sat);