my $string;
$string .= $thing->{employeeID}; 
$string .=  "\t" ;
$string .=  $thing->{sAMAccountName} ;
$string .=  "\t" ;
$string .=  $thing->{department} ;
$string .=  "\t" ;
$string .=  $thing->{o} ;
$string .=  "\t" ;
$string .=  $thing->{physicalDeliveryOfficeName} ;
$string .=  "\n";

##</code><code>##

my $string = join("\t",
    $thing->{employeeID},
    $thing->{sAMAccountName},
    $thing->{department},
    $thing->{o},
    $thing->{physicalDeliveryOfficeName},
)."\n";

##</code><code>##

my $string = join("\t", @$thing{ qw(
    employeeID
    sAMAccountName
    department
    o
    physicalDeliveryOfficeName
) })."\n";