foreach $f ('foo', 'bar', 'baz', 'wibble', 'tlee') {
   $$f = $r->{$f};
}