while (my $letter = pop @ind){
    print $letter;
}