#! /usr/bin/perl -w

# this short scripts creates a gnuplot label file from an order file

$i= 0;

while ($line=<>) {
    chop($line);
    # make _ LaTeX-friendly ...
    $line =~ s/_.*$//g;
    if ($i==0) {
	print "\"$line\" $i";
    } else {
	print ", \"$line\" $i";
    }
    $i++;
}
