sub temp {

sample(($t,$r_ref) = @_ ; $r_ref->[0]);

}