my $str = 'ello';
my $char = 'H';

print $str, "\n";

substr($str, 0, 0, $char);

print $str, "\n";