sub _getGood { my ($self,@args) = @_; print "_getGood()", Dumper $self->{_good}; # Returns a list of of 'Cxxxx' codes. return @{$self->{_good}}; } my @files_to_send = map {"$stage/$_.pdf"} $self->_getGood(); print map {"$_\n"} @files_to_send;