#Send files back to Server A
my $sftp = $ssh->exec("sftp username\@remote host");
my $pass = $ssh->exec("password");

$ssh->waitfor('ftp>', 2); # Wait 2 seconds to get 'ftp>' prompt. Check your server's prompt for correct expression. 

my $mput = $ssh->send("mput *.tar");