use Data::Dumper;

@keys = qw(A B C);
@values = qw(1 2 3);