my $testa = "ABCDEFGHIJKLMNOP";
my @testb = (65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80);
print "$testa\n";
print "@testb\n";

#aber

print join('', map { chr } @testb),"\n";