Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my %hash = split ' ', $slurp;

use Data::Dumper; print Dumper \%hash;

$VAR1 = {
          'TCONS_00004086' => 'XLOC_002872',
...
          'TCONS_00000938' => 'XLOC_000610',
          'TCONS_00004252' => 'XLOC_003003'
        };