Shell Programming and Scripting

field1,field2,field3,field4,field5
value1,value2,value3,value4,value5

field1,field3,field4,field2,field5,field6,field7
value1,value3,value4,value2,value5,value6,field7
value1,value3,value4,value2,value5,value6,field7
value1,value3,value4,value2,value5,value6,field7

field2,field3,field5
value2,value3,value5

field2,field3,field5
value2,value3,value5
value2,value3,value5
value2,value3,value5

my @LineItems;
my $LineItems;
my $FieldValue;
my $i;
my $NumItems;
my $LineCount;

open GETLINES, "cat /tmp/lines.txt |");
$LineCount = 0;
while ( $Line = <GETLINES> ) {
  if ( $Line =~ /^Field1,/ ) {
    $LineCount++;
    @LineItems = split (/,/, $Line);
    $NumItems = @LineItems;
    for ( $i = 1; $i < $NumItems; $i++ ) {
       $FieldValue{$i} = $LineItems[$i];
    }
  }
  if ( $Line =~ /^Value1,/ ) {
    $LineCount++;
    @LineItems = split (/,/, $Line);
    $NumItems = @LineItems;
    for ( $i = 1; $i < $NumItems; $i++ ) {
      $FieldValue{$i} = $LineItems[$i];
    }
  }
}