use Parrot::Native; $fast_loop = sub { parrot_asm( asm_code_here; ); };