$sftp = Net::SFTP->new("myhost" ,  user=>"me", 
  ssh_args => [ identity_files => [ "PATH/.ssh/id_rsa" ,"PATH/.ssh/myid_file"],
                debug => '1', options => ["RhostsAuthenication no"] ] );


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/