$newelement = 54;
for $i (5..($last + 1)) {
$temp = $a[$i];
$a[$i] = $newelement;
$newelement = $a[($i+1)];
}