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