use feature 'say';
use Cwd;

my $origdir = cwd();
chdir '../../dir1/dir2';
for my $element( glob '*/dir3/filename' ) {
   say $element; 
}

##</code><code>##

my $suffix = '/dir3/filename';
for my $element( glob '*' ) {
   say $element . $suffix; 
}