use utf8;
use threads;

threads-> create( sub {
    $s = 'αβγδ' x 1000_000;
    substr( $s, 0, 1000 ) for 1 .. 1000;
})-> join;

print time - $^T;