Select Code to Download

first value is /home/bob/2.scripts/pages/3.cw/template_stuff/aimages 
Use of uninitialized value in concatenation (.) or string at template_
+stuff/html7.pm line 127, <STDIN> line 2.
array part is 
...
AoA put failed 
return is 3.cw15.html
$

sub create_page {

  use 5.011;
...
  return "nothing";

}

  my $rvars = shift;
  my %vars  = %$rvars;

  $vars{refc} = get_content($rvars);
  $rvars = \%vars;  ## will same trick work?

  print "Put file to server(y/n)?: ";
  my $prompt2 = <STDIN>;
  chomp $prompt2;
  if ( $prompt2 eq ( "y" | "Y" ) ) {
    put_page( $sftp, $rvars );
  }

  my $ref_content = $vars{refc};
  my @AoA         = @$ref_content;
  say "content----------";
...
    say "b is $b";
    $sftp->put( $a, $b ) or warn "AoA put failed $@\n";
  }