Are you just trying to run through the returned rows?

If so, something like :

( Untested )

foreach $row ( @$users ) { 
    @current_record = @{$row};
    foreach $column ( @current_record ) {
        print "column = <$column>\t";
    }
    print "\n";
}
[download]

may work.

Doing it this way you don't need to know how many
records are being returned.

Written from ancient memory so may need some work.