#!/usr/bin/perl -w

use strict;

our %rets;

open(RL, "</home/myftplog")
    || open (RL, "<h:\\myftplog")
    || die "$!\n";
while (<RL>) {
    chomp;
    next if /^$/;
    my ($fn,
        $rl,
        $mle,
        $rce,
        $mlfn,
        $mlln,
        $mlac,
        $mlpn,
        $ml2e,
        $ml2fn,
        $ml2ln,
        $ml2pn,
        $retname,
        $ml2ac,
        $rc2e,
        $fc,
        $retid,
        $scrname,
        $exec,
        $freq,
        $fnum) = split /:/;
        if ($fnum eq ""){
            my $fnum = "_001";
        }
    %rets = (
             ${retid}.${fnum} => {
                 FNAME             => $fn,
                 RECLEN            => $rl,
                 LIAISON_EMAIL     => $mle,
                 LIAISON_FNAME     => $mlfn,
                 LIAISON_LNAME     => $mlln,
                 LIAISON_AREACODE  => $mlac,
                 LIAISON_PHONE     => $mlpn,
                 LIAISON2_EMAIL    => $ml2e,
                 LIAISON2_FNAME    => $ml2fn,
                 LIAISON2_LNAME    => $ml2ln,
                 LIAISON2_PHONE    => $ml2pn,
                 RETNAME           => $retname,
                 RETAILER_EMAIL    => $rce,
                 LIAISON2_AREACODE => $ml2ac,
                 RETAILER2_EMAIL   => $rc2e,
                 FTPCHECK          => $fc,
                 RETID             => $retid,
                 SCRIPT_NAME       => $scrname,
                 EXECFLAG          => $exec,
                 FREQUENCY         => $freq,
                 FILE_NUMBER       => $fnum
             }
         );
}
close RL;
 
foreach my $id (keys %rets) {
    print "$id\n";
}