print Dumper $r;