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