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

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