sub upstream {
  my($source, $destination) = @_;
  my $src_place = $source->[0]; # 'here'
  my $dest_place = $destination->[0]; # 'there'
}

my @src = qw(here sender OK);
my @dest = qw(there recipient UNKNOWN);
upstream(\@src, \@dest);