sub temp {
    my( $t, $r_ref ) = @_;
    sample( $r_ref->[0] );
}