my ($name, $address, $other, $info, $here) = getinfo();
...
sub routine_A
{
  ...
  print $name;
}

...