Select Code to Download

my @files = <substituent_R*.txt>;

use Data::Dumper;
$Data::Dumper::Useqq = 1;
warn(Dumper(\@files));

my $avg = $sum / $cnt;

warn("Average=$avg\n");

warn(__LINE__, " for $fn_in\n");