Select Code to Download

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;

@phi2 = `ls *.csv`;
chomp @phi2;  # chomp will apply to every element of the array

  your_script.pl  slk  someinput.csv > /home/Aug18.csv

#!/usr/bin/perl -w

...
        print "$_,$h{$1}\n";
    }
}