my %file; foreach my $entry ( $sftp->ls('/home/ftptest/inbound') ) { next if $entry->{filename} =~ /^\./; my $size = (split(' ', $entry->{longname}))[4]; $file{$entry->{filename}} = $size; } print Dumper \%file;