Select Code to Download

hi.pl ~ 6454
low.pl ~ 757
cow.pl ~ 43
low.pl ~ 757

my $file = low.pl;
my $lineCount = 757;

open(INFILE, "linecount.txt")
my @hold;
...
}
$value = join(' ', @hold);
my( $file, $linecount) = split(/~/, $value);