#!/usr/bin/perl -w
@vars = @ARGV;
$vars = join ',', map "\$$_", @vars;
$joinname = join '', map "_$_", @vars;
exec "process -d '$joinname' -i '@vars' -eb -m '($vars) = split /\\t/, \$$joinname'";