if ($key eq $first .. $key eq $last)
{
    $in = 1;
    push @keys, $key;
}
elsif ($in && $key eq $last)
{
     push @keys, $key;
}
else
{
     $in = 0;
}