#!/usr/bin/perl
use strict;
use warnings;

my $lookup;
my %hash = split /:/ , '43:17:21:33:19:23:6:27';
while (my ($key, $val) = each %hash) {
    $lookup .= pack("C*", ($key) x $val);
}
print unpack("C", substr($lookup, rand 100, 1));