#!/usr/bin/perl -w @array = (1,2,3,4,5,6,7,8,9); print "@array\n"; $offset = 7; splice(@array, $offset);