$o->{"rose"} = "red";
$o->{"violet"} = "blue";

print( $o->{Test()} );

sub Test(){
$t = time();
return( ($t % 2) == 1)? "rose" : "violet";
}

red