Select Code to Download

use strict;
use warnings;
...
  $scfd_name_frgt=reverse $scfd_name_frgt;
  push @{$frgtlocs{$scfd_name_frgt}},($stt_pst_frgt,$stp_pst_frgt,$lgh
+_frgt);
}

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

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