print < Students id First Name Last Name Date Of Birth Year In Password Email Telepon EOF while (my @row_array = $sth->fetchrow_array()) { print <<EOF; $row_array[0] $row_array1 $row_array2 $row_array3 $row_array4 $row_array5 $row_array6 $row_array7 EOF } print"\n";