[ 'main::mytrunc', 'truncate 1', [ 1 ], [ 1 ], [ undef, 1 ] ],
[ 'main::mytrunc', 'truncate 2', $t, $t, [ 2, 1 ] ],
[ 'main::mygrep1', 'grep1', $g, $g, [ 3 .. 5 ] ],
[ 'main::mygrep2', 'grep2', $g, $g, [ 3 .. 5 ] ],
[ 'main::mytrunc', 'truncate 1', [ 1 ], [ 1 ], [ undef, 1 ] ],
[ 'main::mytrunc', 'truncate 2', $t, $t, [ 2, 1 ] ],
[ 'main::mygrep1', 'grep1', $g, $g, [ 3 .. 5 ] ],
[ 'main::mygrep2', 'grep2', $g, $g, [ 3 .. 5 ] ],