for $rec (@PSarray)
    {
    $rec = `echo "$rec"|tr -s ' '|sed 's/^ //'`;
    print "$rec\n";
    }
exit;