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