Select Code to Download

my %conn;
while(<DATA>) {
...
  my $conn = $conn{$key};
  my $conn_back = $conn{join('-', reverse split /-/, $key)} || [];
  ...