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