chomp($phi = `ls slk`);
chomp($phi2 = `ls *.csv`);
open(OUT,"> /home/Aug18.csv") or die "Cannot open output file;
open(READDATA, "< /home/$phi") or die "Cannot Open file;