open(my $fh_final, '>', "weekly_${store}_pdf.sas")
   or die("Unable to open weekly_${store}_pdf.sas for writing: $!\n");