my $r = shift;
...