Re^2: Extracting single element from array to be printed in a one liner hash

[wildguess123]

I got the following error when u changed the foreach loop to yours:

Please enter a string
apple
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Please enter a string

[moritz]

To get rid of the warnings, you can write

if (defined $data{$key} && $data{$key} eq $input) {
   ...
}

Also, please do read, understand and apply Writeup Formatting Tips.

[Lotus1]

The OP wanted to type apples for example and have it say "fruits". To do this you need:

if ( $key eq $input ) {
   ...
}