Mi Array
12345678910111213141516171819
use strict;
use warnings;
my $david = "Mi array";
my $indice = length($david);
my @dnum = split("", $david);
&return(@dnum,$indice-1);
sub return{
if($indice!=0){
print($dnum[$indice-1]);
&return(@dnum,$indice--);
}
}
Perl
INFO