#!/usr/bin/perl -w
use strict;

use Term::Complete;

my %hash = (
    key1       => 'value1',
    key2       => 'value2',
    anotherkey => 'value3',
    fourthone  => 'value4',
);

my $user_input = Term::Complete::Complete('Try to input hash key: ', keys %hash);