print Dumper(\@r);