#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %hash;
open my $fh, '<', $ARGV[0] or die "could not open $ARGV[0]'' $!";
while (my $line = <$fh>)
{
#print "line:$line\n";
my ($key) = $line =~ /;([^;]+)\s-\s/;
#print "KEY:$key\n";
my ($value) = $line =~ /\.\\(.*)-\d+\;/;
#print "VALUE:$value\n";

if (!($hash{$key}))
{
$hash{$key}=$value; 
}
}
open my $hash, '>', "hash_flf.txt";
print Dumper(\%hash);
close $hash;