I'm bringing goto back

Yeah, "goto considered harmful" considered harmful.
It's so easy to parse when it's one command per line...

Here's what I did so far


open FILE, "filename.txt" or die $!;

my @lines = <FILE>;
my %labels;

my $ind = 0;

while ($ind < @lines.length){
    my $cmd = @lines[$ind];
    if ($cmd =~ /^\s*(\w+):$/){
        if (!exists($labels{$1})){
            $labels{$1} = $ind;
        }
    }
    $ind++;
}

$ind = 0;

while ($ind < @lines.length){
    my $cmd = @lines[$ind];
    if ($cmd =~ /^\s*goto (\w+);$/){
        if (exists($labels{$1})){
            $ind = $labels{$1};
        }
    } elsif ($cmd =~ /^\s*print \"(.+)\";$/){
        print $1;
    }
    $ind++;
}

example program:

asd:
print "asd";
goto doge;
print "never printed";
doge:
print "aw! aw!";
goto asd;

USE FORTH YOU FAT FUCKER