my %prompts = (
	'Enter new password' => 'newpass',
	'Enter old password' => 'oldpass'
);

my %tied_hash;

# tie here

for my $prompt (keys %prompts) {
	print $prompt;
	chomp(my $input = <STDIN>);
	$tied_hash{$prompts{$prompt}} = $input;
}