#!/usr/bin/perl use warnings; use strict; use Data::Dumper; #print Dumper(%fruits); fun_fruits('Orange', 110, 'Grapes', 250); #find Grapes and change price sub fun_fruits { my ($fruitName, $fruitPrice, $match, $updatePrice) = @_; my %fruits = ('Banana'=>30, 'Apple'=>150, 'Grapes'=>80,'Pineapple'=>60); print Dumper(\%fruits); $fruits{$fruitName} = $fruitPrice; if (grep { $_ eq $match } keys %fruits) { $fruits{$match} = $updatePrice; } print Dumper(\%fruits); }