Select Code to Download

use strict;
my %cat;
...
  my ($class, $num) = split $;;
  print "cat[$class][$num] = $cat{$_}\n";
}