#! /usr/bin/perl
use strict;
use Switch 'fallthrough';

sub test_switch {
    my $val = shift;
    switch ( $val ) {
        case 10 { print "a"; }
        case 9 { print "b"; }
        case 8 { print "c"; }
        case 7 { print "d"; }
        case 6 { print "e"; }
        case 5 { print "f"; }
        case 4 { print "g"; }
        case 3 { print "h"; }
        case 2 { print "i"; }
        case 1 { print "j"; }
    }
}

test_switch( 10 );
print "\n";
test_switch( 5 );
print "\n";

__END__