#/usr/bin/perl

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use FileHandle;

my $ logfile = '/path/2/logfile.log';
my $fh = new FileHandle;
if ($fh->open("< file")) {

    while( my $line = $fh->getline() ) {
        print "zeile: " . $line; # mal anschauen, was überhaupt in der Zeile steht
        # jetzt deinen hash bauen
        # deine Arbeit hier :)
    }

    $fh->close();
}else{
    die("Konnte die Datei nicht öffnen: $!");
}