%data = ('Lisa' => 30,'John Paul' => 45,'Kumar' => 40);#suppose this is my hash data.

@names = keys %data; #name
@age = value %data; #age

print "Enter the name:";
my $name = <STDIN>;  #input