string 2 numbers

gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# my $string = this OR that
my $string = shift @ARGV || "hello";

# split(m//,$string) says "split apart each individual character"
my (@letters) = split(m//,$string);
# uncomment this to see what gets stuck in @letters
#print Data::Dumper->Dump([\@letters],[qw($letters)]);

my (@numbers) = map { ord($_) } @letters;
#print Data::Dumper->Dump([\@numbers],[qw($numbers)]);

print "String = $string\n";
# $, is the delimiter between elements of a list that is print()ed.
$,=", ";
print "Decimal = ";
print @numbers;
print "\n";