Select Code to Download

#!/usr/bin/perl

...
print "Method 2 (uses hash):\n";
print Dumper(@results);
print "\n";

  Index of element 'PINEAPPLE' is: 5
  Index of element 'GRAPE' is: 3
...
$VAR2 = 'ORANGE';
$VAR3 = 'GRAPE';
$VAR4 = 'PINEAPPLE';