use strict;
use warnings;

my $string = 'abcdefghi';
#let's find the ways to count the elements in string;
my $l = length($string); #finding number of elemnts
my @ind=split //,$string; #finding the number of elements
#assigning the start of our last element for our looping
my $n = (scalar @ind )-1; #getting the last element to start count backwards optinal

for (my $i=(length ($string)-1) ; $i >= 0; $i-- ){
   print $ind[$i];
      }
      
print "\nfor comparison :", scalar reverse($string),"\n";