my $sequence = "1234567890"; my @chrsequence = (split //, $sequence)[1..length($sequence)-1]; print "array has " . scalar @chrsequence . " elements: @chrsequence\n";