#!/usr/bin/perl
# your code goes here
my @files = qw( dir1
/file1 dir1
/file2 dir1
/file3
);
foreach (@files) {
}
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKbXkgQGZpbGVzID0gcXcoIGRpcjEvZmlsZTEgZGlyMS9maWxlMiBkaXIxL2ZpbGUzICk7Cgpmb3JlYWNoIChAZmlsZXMpIHsKCXN+L35ffjsKCXByaW50ICRfIC4gJC87Cn0=