Select Code to Download

$refhash = { UserId => 533, Something => 'foobart' }
$refarray = [ map { $_, $refhash->{$_} } keys %$refhash ];

sub header
{
...
    return $old[0] if @old <= 1;
    join(", ", @old);
}