Why not use an operator that does exactly that?

    my @new = grep {$_ == $first .. $_ == $last} @old
[download]

Abigail