$m = "H"; goto display;
Add_e:{ $m .= "e"; goto display; }
Add_l:{ $m .= "l"; goto display; }
Add_o:{ $m .= "o"; goto display; }
Add_W:{ $m .= "W"; goto display; }
Add_r:{ $m .= "r"; goto display; }
Add_d:{ $m .= "d"; goto display; }
display:
if($m eq "H") {
goto Add_e;
} elsif($m eq "He") {
goto Add_l;
} elsif($m eq "Hel") {
goto Add_l;
} elsif($m eq "Hell") {
goto Add_o;
} elsif($m eq "Hello") {
goto Add_W;
} elsif($m eq "HelloW") {
goto Add_o;
} elsif($m eq "HelloWo") {
goto Add_r;
} elsif($m eq "HelloWor") {
goto Add_l;
} elsif($m eq "HelloWorl") {
goto Add_d;
} else {
print $m;
}