use List::MoreUtils 'part';

chomp(@$_), system("echo", @$_) for (part {$i++/5} <>);