• Well, for one you do not link your file or file handle in any way to the declaration of the hash. How shall Perl know that you want to apply those expressions to the contents of your file?
• Also, regular expression matching is done using the m// operator or /regexp/. Nowhere you tell Perl that you expect matching.
• Thirdly, you need to use capture groups (...) in regular expressions to retrieve information.
• And then you need to loop some how over the lines of your file or apply the regexes repeatedly in some way.

If you put these points into action, it could look like the code below. I am reading from the DATA handle for convenience and read all lines into an unnamed array.

use strict;
use warnings;
my %hash = map { /(TCONS_00[0-9]+)\s+(XLOC_[0-9]+)/ } <DATA>;

my @keys= keys %hash;
my @values= values %hash;

print "@keys\n";
print "@values\n";
__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
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.