#!/usr/bin/perl -w
use strict;

my %lines;

open my $file, "<data.txt" or die "can't open: $!";

while(<$file>)
{
    (my $key, my $stuff) = m/^([^,]*),(.*)/;
    my @data = split(",", $stuff);
    $lines{$key} = \@data;
}

# do something...
print @{$lines{"IL12::1::329"}};