use Subsequence; my @test_nums = (0, 10, 11, 12, 2, 4, 3, 5, 6, 7, 9); my $x = Subsequence->new->insert_list(@test_nums); print $x, "\n"; $x->insert_list(1, 13); print $x, "\n";