Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.6/WWW/LEO.pm line 218, <INFO> line 370.
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.6/WWW/LEO.pm line 221, <INFO> line 370.
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.6/WWW/LEO.pm line 218, <INFO> line 370.
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.6/WWW/LEO.pm line 221, <INFO> line 370.
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.6/WWW/LEO.pm line 218, <INFO> line 370.
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.6/WWW/LEO.pm line 221, <INFO> line 370.

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;
use WWW::LEO;
use Data::Dumper;


open(INFO,   "<  /home/metalfan/todo/dictionaries/Vokabeln\ -\ absolution\ gap.csv") || die("can't open datafile: $!");
my @file=<INFO>;


for my $entry (@file)
{
    my $n=0;
    if ($entry =~ m/"(.+)",\s/x)
    {
        my $vokabel=$1;
        my $leo = WWW::LEO->new;
        $leo->query("$vokabel");
        if ($leo->num_results)
        {
            my $i;
            foreach my $resultpair (@{$leo->en_de})
            {
                printf "%3d: %-40s %s\n", ++$i, @$resultpair;
            }
        }
        else
        {
            print "Sorry, your query for ’%s’gave no results.\n", $leo->query;
        }
    }
}