sub addZeros
{
    my $num = $_; 
    
# Below is the line that I'm having problems. 
#Perl tells me: Use of uninitialized value in length

    while(length($num) < 6)
    {
        $num = "0".$num;
    }
    
    return $num;
}