Select Code to Download

  if ( grep { $ref == $_ } 1..8 )  { ... }

  if ( $ref >= 1  and  $ref <= 8 )  { ... }

  if ( $ref =~ /^[1-8]$/ )  { ... }

use v5.10;
use strict;
...
    default               { say "ELSE $ref" }
  }
}

A 1
B 9
C 17
D 25
ELSE 33