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