sub x {
    ();
}

@x = x();

use Data::Dumper; warn Dumper([\@x]);


##</code><code>##

@x = ();

##</code><code>##

sub get_remote_listing {

    my $dir = $_[0];
    $ftp::session->cwd($dir);
    $ftp::session->ls;
}

sub get_local_listing {
    my $local_dir=shift;
    opendir(DIR, $local_dir) || die "can't opendir $local_dir: $!";
    my @files = grep { -f $_ } readdir(DIR);
    closedir DIR;
    \@files ;
}


##</code><code>##

 my $local  = get_local_listing ( $assigned_dir );
    print "local listing=@$local*****\n";
    my @local = defined($local)   ? @$local  : ();

    my $remote = get_remote_listing $azx::auction{$A}->{ftp_dir};
    my @remote = defined($remote) ? @$remote : ();


##</code><code>##

sub bind_aref {
  my ($aref,$target_aref)=@_;

  @$target_aref = defined($aref) ? @$aref : ();
}