#!/usr/bin/perl
%fruit=(banana=>1,apple=>2,orange=>5);
$target = %fruit;
 
open(INPUT, "<fruits.txt");
 
while (<INPUT>) {
     if (/$target/) {
         print "Found $target on line $.";
     }
}
close(INPUT);

%fruit=(banana=>1,apple=>2,orange=>5);
#$target = %fruit; 
#why u have used above line?what it means?in perl it is of no use.
 
 
 
open(INPUT, "<fruits.txt");
 
while (<INPUT>) 
{
        foreach $target(keys %fruit)
        {
                if (/$target/) 
                {
                        print "Found $target on line $.\n";
                }
        }
}
close(INPUT);

 $target =~ m/you/;