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