my $obj = Note->new;

$obj->{'message'}= "firstmessage";
say $obj->{'message'};