a smidgen of creative blocking lets you number use as well.

#!/usr/bin/perl -w
L000: { use strict;
L001:   {use Quantum::Superpositions}
L002:   my $foo = all(1,2,3);
L003:   $foo *= 2;
L004:   print "Here I am\n";
L005:   goto L003 unless all($foo) > 10;
L006:   print "$foo";
L007: }
[download]