my $ref_content = $vars{refc};
  my @AoA         = @$ref_content;
  say "content----------";
  print Dumper $ref_content;
  for my $i ( 0 .. $#AoA ) {
    say "first value is $vars{to_images} ";
    say "array part is $AoA[$i][0]";
    if (!defined $AoA[$i][0]) {
    say "undefined!...initializing:";
    $AoA[$i][0] = 'quux';
}
    my $a = path( $vars{to_images}, $AoA[$i][0] );
    say "a is $a";
    my $b = $a->basename;
    say "b is $b";
    $sftp->put( $a, $b ) or warn "AoA put failed $@\n";
  }