warn "Line: ==$line==";
my ($filename, $filepath) = split '\t', $line;
warn "filename: '$filename' --- filepath: '$filepath'";