print "$_ $h1{$_}\n" for keys %$r1;
ITYM $h1->{$_}.
-- David Serrano
In reply to Re^4: Relative Merits of References by Hue-Bond in thread Relative Merits of References by pbeckingham