#!/usr/bin/perl -w
use strict;

my @ltrs = qw (A B C D);
my $num = "0101";

print "$num=>";
my $i =0;
foreach my $bit (split(//,$num))
{
   print $ltrs[$i] if $bit;
   $i++;
}
print "\n";

# prints: 0101=>BD