my @rawdata = (49, 70, 55, 54, 52, 49, 2, 28, 0, 9, 0);
my $data = pack('C*', @rawdata);

# transmission of packed data ...

my @received = unpack('C*', $data);

# Funktionierende Variante:

print join('', map {sprintf('%02X', $_)} @received);

# Versuch, den gepackten String zu splitten, um an die einzelnen
# Elemente zu kommen:

print "\n";
print join('', map {sprintf('%02X', $_)} split(//, $data));

# Es geht mit der Verwendung von ord():

print "\n";
print join('', map {sprintf('%02X', ord($_))} split(//, $data));