use strict;

my @list = 0..9;
print "Step 1: @list\n";

alias_fun(@list);
sub alias_fun {
  splice @_, 5, 5, 0..4;
  $_ = 'X' for @_;
  print "Step 2: @_\n";
}

print "Step 3: @list\n";