#!/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);

}