I think you might have an XY Problem here.

Correct me if I'm wrong, but I think that what you really want to do is to munge this input:

1,1,0,0,0,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0
0,0,1,1,0,0,1,1,0,0,1,1,0,1,0,1,0,1,1,0

[download]

using your %translation hash, to produce this output:

Odp-
kIr+

[download]

This implies that each 20-character-long line in your input file may be divided into four segments, of respectively 6 + 6 + 6 + 2 bytes (counting from left to right).

In which case, why not simplify matter by stringifying the 'segments' in question? Your %reverse_translation could then look like this:

(
  110011 => 'I',
  111101 => 'u',
  11 => '*',
  01 => '/',
  ... etc ...,
)

[download]

Here's a possible implementation, which works at least with the (rather sparse) data you provide:

my %translation = (
  # as in OP
);

my %reverse_translation;
for ( keys %translation ) {
  my $bin = join '', @{ $translation{$_}} ;
  $reverse_translation{$bin} = $_;
}

while ( <DATA> ) {
  my @segments = unpack 'A6A6A6A2', join '', split /,/;
  print $reverse_translation{$_} for @segments;
  print "\n";
}

__DATA__
1,1,0,0,0,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0
0,0,1,1,0,0,1,1,0,0,1,1,0,1,0,1,0,1,1,0

[download]

In reply to Re: Problem de-referencing a variable by Not_a_Number
in thread Problem de-referencing a variable by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.