#23456789_123456789_12345678
$_=hex a;print$_--,$/while$_