@chars=split //, $string; 
for(@chars) {
    print $_ . " " . ord($_) . "\n"; 
}