OK, strict in spirit at 44.

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

UPDATE
Well strict and warnings compliant in 43:

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

and then strict alone in 39:

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

UPDATE 2
Warnings as well in 40:

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