#! 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;