my @labels = qw /L0 L1 L2/; ... goto $labels[0]; L0: