sub NAME { 0 }; sub ADDRESS { 1 }; sub routine_A { print getinfo()->[NAME], "\n"; } sub routine_B { print getinfo()->[ADDRESS], "\n"; } sub getinfo { my $name = "Sam"; my $address = "123 Main St"; return [$name, $address]; }