use Data::Dumper;
print Dumper $key
$VAR1 = 'AN-AM-BA';