Select Code to Download

use warnings;
use strict;
...
        warn "Second argument to multipop must be numeric: '$count'";
    }
}

my @result = multipop @array, 3;