@headers = qw(one two three);
@rows = (
  ['yes', 'no', 'maybe'],
  ['alpha', 'beta', 'and all the rest'],
);
{
    local($\, $,) = ("\n", "\t");
    print @headers;
    print @$_ foreach @rows;
}