# remove a single whitespace from the start of lines

        foreach $line (@array)
        {
        $line =~ s/^\s//g;
        }