print Tr(
	      start_form(-action => url()),
	      hidden(-name => "hidden", 
		     -value => $row),
	      td($row->[0]),
	      td($row->[1]),
	      td($usage),
	      td($cumu_usage),
	      td(submit(-name => "choice", 
                        -value => "Delete")),
	      end_form(),
	    );


##</code><code>##

...
elsif (param("choice") eq "Delete") {
  print (param("hidden"));
...

##</code><code>##

$dataref = param("hidden");
$date = $dataref->[0];