#!/usr/bin/perl -w
@vars = @ARGV;
$vars = join ',', map "\$$_", @vars;
$joinname = join '', map "_$_", @vars;
exec "process -i '$joinname' -d '@vars' -ea -m '\$$joinname = join qq{\\t}, $vars'";