&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";
    }
}

##</code><code>##

sub rien2rien
{
    my $other = shift;
    foreach (@$other)
    {
        my $var1 = $_->{'first'};
        my $var2 = $_->{'second'};
        print "in other sub:\t$var1\t$var2\n";
    }
}