use feature 'say';
use Cwd;

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