This is a natural for splice,

sub p{
my($c,$s,@x)=@_;abs$c>@x&&splice@x,$c>0?@x:0,0,($s)x(-@x+abs$c);@x
#234567890123456789012345678901234567890123456789012345678901234567
}
[download]

I claim 66 and strict.