Select Code to Download

use File::Spec::Functions qw( catfile );

...
   # List of files is in @{ $files_by_cust{$cust_id} }.
   # ...
}