Select Code to Download

#!/usr/bin/perl -w
...
        }
    }

#!/usr/bin/perl -w
...
        print "@list\n";
    }

my @symbol=qw(0 1 2 3 4 5 6 7 8 9);
...

#? Repeat the foreach to specified deepness ?