#!/usr/bin/perl -ln

use warnings;
use strict;

our $current_sample;
local $, = ",";

BEGIN {
  print "time,name,value";
}

if (/^BEGIN_SAMPLE\s+(.+)/) {
  $current_sample = $1;
}
elsif (/(\S+)\t([\d.]+)/) {
  print $current_sample, $1, $2;
}