Re: create hashes using regex

[frozenwithjoy]

Here is a non-regex solution, too:

#!/usr/bin/env perl
use strict;
use warnings;

my %hash = map { chomp; split /\t/; } <DATA>;

use Data::Printer;
p %hash;

__DATA__
TCONS_00000047    XLOC_000039
TCONS_00000718    XLOC_000456
TCONS_00000938    XLOC_000610
TCONS_00004086    XLOC_002872
TCONS_00004252    XLOC_003003
TCONS_00004975    XLOC_003624
TCONS_00004976    XLOC_003624
TCONS_00005492    XLOC_004020

Output:

{
    TCONS_00000047   "XLOC_000039",
    TCONS_00000718   "XLOC_000456",
    TCONS_00000938   "XLOC_000610",
    TCONS_00004086   "XLOC_002872",
    TCONS_00004252   "XLOC_003003",
    TCONS_00004975   "XLOC_003624",
    TCONS_00004976   "XLOC_003624",
    TCONS_00005492   "XLOC_004020"
}