my $result = runDBsql($server,$user,$pass); # Cannot modify runDBsql

remove_leadspace($result);
local $Data::Dumper::Useqq = 1;# In case it is not whitespace but some other character 
print Dumper($result);
print "\n$result\n"; # added for further debugging

sub remove_leadspace
{
    return if not defined wantarray;
    return map { s/^\s+//r } @_ if wantarray;
    return shift =~ s/^\s+//r;
}