#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

say for glob '{' . join('}-{' => map { join ',' => split } <DATA>) . '}';

__DATA__
1 2
3 4 5
6 7
8 9