#!/usr/bin/perl

# my @multi_array = map {[split]} <DATA>;