#! perl
use strict;
use warnings;
use Data::Dump;

# Populate @route with 100 strings: 'aa', 'ab', 'ac', ... 'dv'
my   $string = 'aa';
my   @route;
push @route, $string++ for 1 .. 100;

# Remove and print the first 10 elements
my   @first_ten = splice @route, 0, 10;
dd  \@first_ten;

# Print the remaining elements
dd  \@route;

##</code><code>##

13:05 >perl 1517_SoPW.pl
["aa" .. "aj"]
["ak" .. "dv"]

13:05 >