use strict;
use warnings;

while(<FGLCS>){
  chomp;
  my ($scfd_name_frgt,$stt_pst_frgt,$stp_pst_frgt,$lgh_frgt)=split /\t/,$_;
  $scfd_name_frgt=reverse $scfd_name_frgt;
  push @{$frgtlocs{$scfd_name_frgt}},($stt_pst_frgt,$stp_pst_frgt,$lgh_frgt);
}