Select Code to Download

sub x {
    ();
...

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

@x = ();

sub get_remote_listing {

...
    \@files ;
}

 my $local  = get_local_listing ( $assigned_dir );
    print "local listing=@$local*****\n";
...
    my $remote = get_remote_listing $azx::auction{$A}->{ftp_dir};
    my @remote = defined($remote) ? @$remote : ();

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

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