Select Code to Download

#!/usr/bin/perl -w
use strict;
...
AB1\tA{Daniel Wright}\sA{Jack Smith}\sB{Jane Goodwin}
QW1\tA{Samantha Patton}\sC{Timothy Eeckles}
AR2\tA{Jane Goodwin}

$VAR1 = {
          'Jane Goodwin' => 2,
...
          'Jack Smith' => 1,
          'Samantha Patton' => 1
        };