for my $target (@array) {
    print "Trying to store [$target]\n";
};

##</code><code>##

for my $target (@array) {
    $target =~ s/\s+$//;
    print "Storing [$target]\n";
    $ftp->put( $target );
};