... rest of code untouched
$table->add_cols({name=>'Device',data=>[@dev],before=>0});

print $table->output;