my $r = $ref->{1}; # Abkürzen ;)

# btw.
my %hash = %{$ref->{1}}; # %hash ist eine Kopie!
# und hier:
my %hash = %$ref->{1}; # gibts sogar eine Fehlermeldung
# Reference found where even-sized list expected at