#!/usr/bin/env perl
 
use warnings;
use strict;
my $str = 'abcde';
for (split //, $str) {
    print "$_:", ord $_, ":\n";
}