my ( $var1, $var2, $var3, $var4, $var5, $var6, $var7, $var8, $var9, $var10, $var11, $var12, $var13 ) = split( /\|/, $line );    #variables are separated by commas.
        my $type = substr( $var8, 0, 3 );