use Runops::Trace 'checksum_code_path'; for ( 1 .. 1000 ) { my @args = ( rand(), rand(), rand() ); $md5 = checksum_code_path( sub { $results = foo( @args ) } ); next if $seen{ $md5 } ++; push @great, \ @args; } __END__ 0.16 0.53 0.84 -> b c e 0.03 0.29 0.43 -> b d f 0.30 0.45 0.74 -> b d e 0.58 0.25 0.91 -> a d e 0.60 0.02 0.11 -> a d f 0.47 0.52 0.33 -> b c f 0.51 0.53 0.63 -> a c e 0.59 0.53 0.05 -> a c f