use strict;
use warnings;

my %trans = (1 => "One", 2 => "Two", 3 => "Three");
my $var   = '2.123.45.6';
if ( $var =~ /^(\d)\./ ) {
    print "$var starts with $trans{$1}";
} else {
    print "$var malformed";
}