sub h{
#23456789_123456789_123456789_123456789
[eval'map{[@$_,1],[@$_,-1]}'x pop.'[]']
}