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);
}

##</code><code>##

@{$scfd_name_frgt}=($stt_pst_frgt,$stp_pst_frgt,$lgh_frgt);
$frgtlocs{$scfd_name_frgt}=\@{$scfd_name_frgt};

##</code><code>##

$frgtlocs{$scfd_name_frgt}=[$stt_pst_frgt,$stp_pst_frgt,$lgh_frgt];