#!/usr/bin/perl5 

$inputfile = "matrix.jaccard";

open (FILE, $inputfile) || die ("Error opening file '$inputfile'\n");

$i = 0;

while ($row_label = <FILE>) {
  print $row_label;
  $row_string = <FILE>;

printf " [row_string='%s']\n", $row_string;

  for ($i = 0; ; $i++) {

# get next word, call it $label
# get next float, call it $jaccard

    if ($i > 0) {
      print " ";
    }
    $dice = ($jaccard * 2) / (1 + $jaccard);
    printf "%s %6.4f", $maybe, $dice;
  }
}