...
die "$0: VALUE MIN MAX\n"  if @ARGV != 3;
my ($key, $min, $max) = @ARGV;
die "Erstes Argument muss [a-d] sein!\n"  unless $key =~ m/^[a-d]$/i;
$key = lc $key;
...