Select Code to Download

#!/bin/perl
use strict;
...
    print($report{$cust}[$_], "\t") for 0 .. 12; 
} 
print "\n";

}  
print "\n";