&rien2rien(\@ut);

.
.
.

sub rien2rien
{
    my $other = shift;
    for (my $i = 0; $i < @$other; $i++)
    {
        my $a = $other->[$i]{'first'};
        my $b = $other->[$i]{'second'};
        print "in other sub:\t$a\t$b\n";
    }
}