Select Code to Download

my $str = "Hello";
print reverse $str;

sub rev_scalar {
  my $data = shift;
...
    substr($$data,-($i+1),1) = $tmp;
  }
}