my $ls = $sftp->ls('/root/mydirs', no_wanted => qr/^\./ );
my %size = map { $_->{filename} => $_->{a}->size } @$ls;
foreach my $filename (sort keys %size) {
    print "$filename : $size{$filename}\n";
  }