#!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;
}