Select Code to Download

#!/usr/bin/perl
use strict;
...
close FILE1;
close FILE2;
close FD;

$VAR1 = [
          'rs34569384',
...
          'rs123456' => 43,
          'rs234567' => 15
        };