use strict;
use warnings;
my $first = shift @ARGV;
my @the_rest = @ARGV;
my $the_rest_string = join " ", @the_rest;