while (my $line = <FH>) {
    my @a = split(/\|/,$line);
    my $b = shift(@a);
    $HASH{$b} = \@a;
}
print "LIne 2 : ",join(',',$HASH{'LIne 2'}),"\n";