The second argument to ok() and the third argument to is() etc. is a description string. So you could write:

use Test::More tests => 2;
ok 1, '1 is True';
ok 0, '0 is also True'; # will fail
[download]

If you run perl t/your-test.t, the output looks like this:

1..2
ok 1 - 1 is True
not ok 2 - 0 is also True
#   Failed test '0 is also True'
#   at foo.t line 3.
# Looks like you failed 1 test of 2.
[download]

It includes the description of the failed test, so you can just search in the test file for that description.