use v5.14;
use warnings;

say "INPUT: ",my $str = join " ", 1..9;

my $stop=5;
while ( my ($c,$r) = ($str =~ m/(\d+) (\d)/gc) ) {
  say "$c $r";
  die unless $stop--;
}