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