#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'dd';
use feature 'say';

sub show_args ($_;$) {
	dd @_;
}

sub call_show_args {
	say "single:";
	show_args $_[0], $_[1], $_[2];
	say "flat:";
	show_args @_;
	say "slice:";
	show_args @_[0 .. 2];
	say "slice split:";
	show_args $_[0], @_[1 .. 2];
	say "array split:";
	my $p = shift;
	show_args $p, @_;
}

$_ = 'default';
call_show_args qr{:}, 'a:b:c', 99;

__DATA__
single:
(qr/:/, "a:b:c", 99)
flat:
(3, "default")
slice:
(99, "default")
slice split:
(qr/:/, 99)
array split:
(qr/:/, 2)