my @members;
    my $key = \@members;
    my @application;

        print "Application = ", $data[$application_pos], "\n";
        if ( $data[$application_pos] ne "" && $data[$ip_address_pos] ne "" ) {
            $key = $data[$application_pos];
            $application[$key] = $data[$application_pos];
            push $application[$key], $data[$ip_address_pos];
            print Dumper( @application ) ;
        }