in reply to fall through switch/case in perl

TIMTOWTDI. 

#!perl -l
my $var=9;
my @sub=(0,map { sub { print $_ } } reverse 'a'..'j');
if ($var>=0 and $var<=$#sub) {
  $sub[$_] && $sub[$_]->() for reverse 1..$var;
}

[download]

---
demerphq

    First they ignore you, then they laugh at you, then they fight you, then you win.
    -- Gandhi

In Section Seekers of Perl Wisdom