sub extract_name { my ($response, $p) = @_ ; 
my $extracted ... .... $_[1] = $p ; 
# $_[1] is implicitly a reference to the 2nd +actual argument return $extracted ;
 } ;