#! /usr/bin/perl -w

use strict;

my $string="superdog";
my @array = split//,$string;

my $count = @array;
print "\$string = $string\n";
print "There are $count characters in $string.\n";
print "Lets push split those $count characters into an array...\n";

for (my $i=0; $i < $count; $i++) {
  print "\t\@array[$i] = $array[$i]\n";
}