sub shift {
my ($array) = @_;
CORE::shift @$array;
-}
+}
+
+sub slice {
+ my ($array, $indicies) = @_;
+ [ @{$array}[ @{$indicies} ] ];
+}
# NOTE:
# sprintf args need to be reversed,
=item B<sprintf ($format_string)>
+=item B<slice (@indices)>
+
=back
=head2 Indexed implementation