Select Code to Download

#!/usr/bin/perl

...
  },
  sub { $keyhash{$_[0]} // $_[0] },
  );

  matched adam west -- adam west 12
  matched daric dalon -- daric dalon mr.
...
  matched riley remer -- riley remer
unmatched john steve
unmatched dim madz 12