open(IN, $file)||die "Can not open file: $file\n";

%hash =( 'TCONS_00[0-9]+' => 'XLOC_[0-9]+');


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

print @keys;
print @values;

close(IN);