Perl ile String işlemleri - String to char array-String reverse -String Push

#----------------------------------------------------------------------
#string'i char dizisine dönüştirme ve üzerinde gezinme
#----------------------------------------------------------------------

my $str = "merhaba";
my @char_array = split(//,"$str");
#string to char
foreach my $char (@char_array){

if($char eq "h"){
print "H\n";
}else{
print $char . "\n";
}
}
#----------------------------------------------------------------------
#end
#----------------------------------------------------------------------


#----------------------------------------------------------------------
#string reverse,tersine çevirme,yeni bir diziye push ile veri ekleme
#----------------------------------------------------------------------
print "REVERSE\n";
$size=@char_array;
@reverse;
foreach my $char (@char_array){
$size=$size-1;
print @char_array[$size] . "\n";
push @reverse, @char_array[$size];

}
print "\nREVERSE ARRAY\n";
print @reverse;
#----------------------------------------------------------------------
#end
#----------------------------------------------------------------------