sub sshMeSomeSlotsPortsNodes {
    my( $id, $start_date, $end_date ) = @_;
    my %network;
    ...
    while ($INPUT_LINE = <input>) {
        my %dat;
        (
            $dat{l_node},      $dat{l_slot},      $dat{l_ifNum},
            $dat{r_node},      $dat{r_slot},      $dat{r_line},
            $dat{r_port},      $dat{kbps},        $dat{subnetwork},
            $dat{subnetwork2}, $dat{r_domain_id}, $dat{icore_domid},
            $dat{cust_port},   $dat{track_port},  $dat{vlan_stacking_inv},
            $dat{cos_level},   $dat{equip_type_id}
        ) = split( /  /, $INPUT_LINE );
        $network{r_node}{$KEY} = $dat{r_node};
        $network{r_slot}{$KEY} = $dat{r_slot};
        $network{r_port}{$KEY} = $dat{r_port};
        ...
        $network{arraykey}{$KEY}=$KEY;
        ...
    }
    return \%network;
}