open my $WFH, ">>", $dest_file or die $!;
my $tab = "\t";
foreach (@files){
  print $WFH $tab."- ".$_."\n";	
}