while (<INFILE>) {
  my $key = $_;
  my ($num, $name) = ($_ =~ /(\d+)\s*[,]\s*(.*?)\s*$/);
  my %rec = { productnumber => $num, 
              productname => $name,
            };
  $product{$key} = \%rec;
}

##</code><code>##

for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc'
.'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$
p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}