Select Code to Download

#!/usr/bin/perl
use warnings;
...
    say join "\t", $register, splice @values
        if 5 == push @values, $value;
}