open(FILE, "+<", $filename)
       or die ($node_name."Could not open file: $filename");

  @csvArray = <FILE>;

  foreach $csvLine (@csvArray)
  {
    if ($csvLine =~ /AMA/)
    {
      $csvHash{"header"} = $csvLine;
      next;
    }
    @fields = split /,/, $csvLine;
    @tmp = split /\./, @fields[2];
    chomp($csvLine);
    $csvHash{@tmp[0]} = $csvLine;
  }

  @csvArray = sort values(%csvHash);
foreach $mem (@csvArray)
{
  print "LINE:$mem<\n";
}
exit;

##</code><code>##

LINE:9/8/2005 0:00,FRDS,CDR-827705_9_08.FCDR_1.6718.FRDS.11328,10282170,5020,40018,40018,0,0,0<
LINE:9/8/2005 0:00,FRDS,CDR-827805_9_08.FCDR_1.6718.FRDS.11329,8837858,4315,34243,34243,0,0,0<
LINE:9/8/2005 0:00,FRDS,CDR-827905_9_08.FCDR_1.6718.FRDS.11330,7652257,3736,29711,29711,0,0,0<
LINE:9/8/2005 0:00,FRDS,CDR-828005_9_08.FCDR_1.6718.FRDS.11331,5346713,2610,20778,20778,0,0,0<

##</code><code>##

<INE:9/8/2005 0:00,FRDS,CDR-827705_9_08.FCDR_1.6718.FRDS.11328,10282170,5020,40018,40018,0,0,0
<INE:9/8/2005 0:00,FRDS,CDR-827805_9_08.FCDR_1.6718.FRDS.11329,8837858,4315,34243,34243,0,0,0
<INE:9/8/2005 0:00,FRDS,CDR-827905_9_08.FCDR_1.6718.FRDS.11330,7652257,3736,29711,29711,0,0,0
<INE:9/8/2005 0:00,FRDS,CDR-828005_9_08.FCDR_1.6718.FRDS.11331,5346713,2610,20778,20778,0,0,0

##</code><code>##

`smbclient //oh-youn-f2/engineering -W Dobson -U $user_login%$user_passwd -c "cd Common/AMA_Reconcile/AMA_Transferred/;get $infile
incoming/$infile"`;