Just some fun:

#!/usr/bin/perl -w

my @a;
my $num = "12345";

# most likely the best way to do it: 

@a = split(//,$num);

foreach (@a) {
  print "$_\n";
};

# but this is kind of fun: 

@a = (); #clear array

my $l = length($num);

for (my $x = "0"; $x < $l; $x++ ) {
  push(@a, substr($num, $x, 1));
};

foreach (@a) {
  print "$_\n";
};

# random: 

@a = (); #clear array

for (my $x = "0"; $x < $l; $x++ ) {
  my $rand = rand($l);
  push(@a, substr($num, $rand, 1));
};

foreach (@a) {
  print "$_\n";
};
[download]

-Matt