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