my $line = 1;
while (<data>){
    my $class = ($line % 2) == 0 ? "even" : "odd";
    print qq{\t\t\t<tr class="$class">};
    # rest of the loop here
   $line++;
}